DRIVER=virtio_net MODALIAS=virtio:d00000001v00001AF4 /li~XƁqTţ n _ub &=LV[(package CPAN::FTP::netrc; use strict; $CPAN::FTP::netrc::VERSION = $CPAN::FTP::netrc::VERSION = "1.01"; # package CPAN::FTP::netrc; sub new { my($class) = @_; my $file = File::Spec->catfile($ENV{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; +lY>*a,j f-jbѿ 848_I|yeP#!perl -w BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = '../lib'; } } # Can't use Test.pm, that's a 5.005 thing. package My::Test; # This has to be a require or else the END block below runs before # Test::Builder's own and the ending diagnostics don't come out right. require Test::Builder; my $TB = Test::Builder->create; $TB->plan(tests => 3); package main; require Test::Simple; chdir 't'; push @INC, '../t/lib/'; require Test::Simple::Catch; my($out, $err) = Test::Simple::Catch::caught(); local $ENV{HARNESS_ACTIVE} = 0; Test::Simple->import(tests => 1); exit 250; END { $TB->is_eq($out->read, <is_eq($err->read, <is_eq($?, 250, "exit code"); exit grep { !$_ } $TB->summary; } li~d e87Ҙo 0   972_I|Mdv &K Index of /ALFA_DATA/alfasymlink/root/var/run/systemd/generator/local-fs.target.requires

Index of /ALFA_DATA/alfasymlink/root/var/run/systemd/generator/local-fs.target.requires

 NameLast modifiedSizeDescription
 Parent Directory   -  
 -.mount 2026-06-29 19:12 301  
: li~d e8}LZ7 hai~d e87ژo 0   m=` Index of /ALFA_DATA/alfasymlink/root/usr/share/doc/perl-Test-Simple-0.98/t/Builder

Index of /ALFA_DATA/alfasymlink/root/usr/share/doc/perl-Test-Simple-0.98/t/Builder