/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
H A D | split_command.t | 24 my $mm = bless { NAME => "Foo" }, "MM"; 35 my @test_args = qw(foo bar baz yar car har ackapicklerootyjamboree); 43 my %test_args = ( foo => 42, bar => 23, car => 'har' );
|
H A D | writemakefile_args.t | 108 wump => { foo => 42 }, 115 is_deeply( $mm->{wump}, { foo => 42 } );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
H A D | xsubpp | 420 # Process the length(foo) declarations
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | Fatal.pm | 131 no warnings; # to avoid: Subroutine foo redefined ...
|
H A D | Fatal.t | 13 eval { open FOO, '<lkjqweriuapofukndajsdlfjnvcvn' }; 17 my $foo = 'FOO'; 18 for ('$foo', "'$foo'", "*$foo", "\\*$foo") { 23 print "not " if $@ or scalar(<$foo>) !~ m|^#!./perl|; 25 eval qq{ close FOO }; 30 eval { opendir FOO, 'lkjqweriuapofukndajsdlfjnvcv [all...] |
H A D | FileHandle.pm | 120 $fh = new FileHandle "> FOO";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
H A D | CheckTree.pm | 89 # split a line like "/foo -r || die" 90 # so that $file is "/foo", $test is "-rwx || die"
|
H A D | Copy.t | 31 $foo = <F>; 37 print "not " unless $foo eq sprintf "ok %d\n", 3+$loopconst; 46 open(R, "copy-$$") or die "open copy-$$: $!"; $foo = <R>; close(R); 47 print "not " unless $foo eq sprintf "ok %d\n", 3+$loopconst; 53 open(R, "copy-$$") or die; $foo = <R>; close(R) or die "close: $!"; 54 print "not " unless $foo eq sprintf "ok %d\n", 3+$loopconst; 63 open(R, "copy-$$") or die; $foo = <R>; close(R); 64 print "# foo=`$foo'\nnot " unless $foo e [all...] |
H A D | DosGlob.t | 93 package Foo; package
|
H A D | Find.pm | 213 For example, when examining the file F</some/path/foo.ext> you will have: 216 $_ = foo.ext 217 $File::Find::name = /some/path/foo.ext
|
H A D | Path.pm | 11 mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711); 12 rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1); 93 Therefore, you must be extremely careful about using C<rmtree($foo,$bar,0)>
|
H A D | Temp.pm | 885 # first on VMS turn []foo into [.foo] for rmtree 1141 # on VMS turn []foo into [.foo] for concatenation
|
H A D | stat.t | 64 package foo; package
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Find/t/ |
H A D | find.t | 490 my @foo = qw( a b c d e f ); 491 my %pre = map { $_ => } @foo; 493 File::Find::find( sub { } , 'fa' ) for @foo; 494 delete $pre{$_} for @foo; 512 package Foo; package 521 my @foo = 'n'; 522 tie $foo[0], "Foo"; 524 File::Find::find( sub { $true_count++; $_{$_}++; &_; } , 'fa' ) for @foo; 530 Check( scalar( @foo ) [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/ |
H A D | VMS.pm | 158 $path =~ s/([\[<])000000\./$1/g; # [000000.foo ==> [foo 159 $path =~ s/([^-]+)\.(\]\[|><)?000000([\]\>])/$1$3/g; # foo.000000] ==> foo] 160 $path =~ s-\]\[--g; $path =~ s/><//g; # foo.][bar ==> foo.bar 162 $path =~ s/\.[^\[<\.]+\.-([\]\>])/$1/; # bar.foo.-] ==> bar] 164 $path =~ s/([\[<\.])([^\[<\.\cx]+)\.-\.?/$1/g; # bar.-.foo ==> foo 166 $path =~ s/^[\[<\]>]{2}//; # []foo [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/t/ |
H A D | Spec.t | 197 [ "Win32->catdir('\\', 'foo')", '\\foo' ], 248 [ "FakeWin32->abs2rel('E:/foo/bar/baz')", 'E:\\foo\\bar\\baz' ],
|
H A D | crossplatform.t | 51 $base = $module->catpath($v, $module->catdir('', 'foo'), ''); 52 $base = $module->catdir($module->rootdir, 'foo'); 57 # abs2rel('A:/foo/bar', 'A:/foo') -> 'bar' 58 $file = $module->catpath($v, $module->catdir($module->rootdir, 'foo', 'bar'), 'file'); 59 $base = $module->catpath($v, $module->catdir($module->rootdir, 'foo'), ''); 63 # abs2rel('A:/foo/bar', 'B:/foo') -> 'A:/foo/bar' 64 $base = $module->catpath($other_v, $module->catdir($module->rootdir, 'foo'), ''); [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/FileCache/t/ |
H A D | 01open.t | 5 @files = qw(foo bar baz quux Foo_Bar);
|
H A D | 02maxopen.t | 6 @files = qw(foo bar baz quux); 26 ok(fileno($path) || $path =~ /^(?:foo|bar)$/);
|
H A D | 03append.t | 5 @files = qw(foo bar baz quux Foo_Bar);
|
H A D | 04twoarg.t | 11 unlink('foo'); 17 cacheout '>', "foo"; 18 print foo "foo 4\n"; 19 cacheout '+>', "foo"; 20 print foo "foo 44\n"; 21 seek(foo, 0, 0); 22 print 'not ' unless <foo> eq "foo 4 [all...] |
H A D | 05override.t | 11 unlink("Foo_Bar"); 16 cacheout local $_ = "Foo_Bar";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/Long/t/ |
H A D | gol-basic.t | 17 @ARGV = qw(-Foo -baR --foo bar); 20 print "ok 1\n" if GetOptions ("foo", "Foo=s");
|
H A D | gol-compat.t | 14 @ARGV = qw(-Foo -baR --foo bar); 19 print "ok 1\n" if NGetOpt ("foo", "Foo=s");
|
H A D | gol-linkage.t | 14 @ARGV = qw(-Foo -baR --foo bar); 17 print "ok 1\n" if GetOptions (\%lnk, "foo", "Foo=s"); 18 print ((defined $lnk{foo}) ? "" : "not ", "ok 2\n"); 19 print (($lnk{foo} == 1) ? "" : "not ", "ok 3\n"); 20 print ((defined $lnk{Foo}) ? "" : "not ", "ok 4\n"); 21 print (($lnk{Foo} eq "-baR") ? "" : "not ", "ok 5\n"); 26 @ARGV = qw(-Foo -baR --foo ba [all...] |