diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 12:20:49 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 12:20:49 +0000 |
commit | 316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch) | |
tree | cb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/lib/CPAN/FTP | |
parent | cd0f87b5d39480d85ad9bd4ee37f520f75bed560 (diff) |
Moving old tlperl prior to committing new one
git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPAN/FTP')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/CPAN/FTP/netrc.pm | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPAN/FTP/netrc.pm b/Master/tlpkg/tlperl/lib/CPAN/FTP/netrc.pm deleted file mode 100755 index c05405e7ef6..00000000000 --- a/Master/tlpkg/tlperl/lib/CPAN/FTP/netrc.pm +++ /dev/null @@ -1,63 +0,0 @@ -package CPAN::FTP::netrc; -use strict; - -$CPAN::FTP::netrc::VERSION = $CPAN::FTP::netrc::VERSION = "1.00"; - -# package CPAN::FTP::netrc; -sub new { - my($class) = @_; - my $home = CPAN::HandleConfig::home(); - my $file = File::Spec->catfile($home,".netrc"); - - my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, - $atime,$mtime,$ctime,$blksize,$blocks) - = stat($file); - $mode ||= 0; - my $protected = 0; - - my($fh,@machines,$hasdefault); - $hasdefault = 0; - $fh = FileHandle->new or die "Could not create a filehandle"; - - if($fh->open($file)) { - $protected = ($mode & 077) == 0; - local($/) = ""; - NETRC: while (<$fh>) { - my(@tokens) = split " ", $_; - TOKEN: while (@tokens) { - my($t) = shift @tokens; - if ($t eq "default") { - $hasdefault++; - last NETRC; - } - last TOKEN if $t eq "macdef"; - if ($t eq "machine") { - push @machines, shift @tokens; - } - } - } - } else { - $file = $hasdefault = $protected = ""; - } - - bless { - 'mach' => [@machines], - 'netrc' => $file, - 'hasdefault' => $hasdefault, - 'protected' => $protected, - }, $class; -} - -# CPAN::FTP::netrc::hasdefault; -sub hasdefault { shift->{'hasdefault'} } -sub netrc { shift->{'netrc'} } -sub protected { shift->{'protected'} } -sub contains { - my($self,$mach) = @_; - for ( @{$self->{'mach'}} ) { - return 1 if $_ eq $mach; - } - return 0; -} - -1; |