Searched full:foo* (Results 601 - 625 of 797) sorted by relevance

<<21222324252627282930>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A Dsplit_command.t24 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 Dwritemakefile_args.t108 wump => { foo => 42 },
115 is_deeply( $mm->{wump}, { foo => 42 } );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A Dxsubpp420 # Process the length(foo) declarations
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DFatal.pm131 no warnings; # to avoid: Subroutine foo redefined ...
H A DFatal.t13 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 DFileHandle.pm120 $fh = new FileHandle "> FOO";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DCheckTree.pm89 # split a line like "/foo -r || die"
90 # so that $file is "/foo", $test is "-rwx || die"
H A DCopy.t31 $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 DDosGlob.t93 package Foo; package
H A DFind.pm213 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 DPath.pm11 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 DTemp.pm885 # first on VMS turn []foo into [.foo] for rmtree
1141 # on VMS turn []foo into [.foo] for concatenation
H A Dstat.t64 package foo; package
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Find/t/
H A Dfind.t490 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 DVMS.pm158 $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 DSpec.t197 [ "Win32->catdir('\\', 'foo')", '\\foo' ],
248 [ "FakeWin32->abs2rel('E:/foo/bar/baz')", 'E:\\foo\\bar\\baz' ],
H A Dcrossplatform.t51 $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 D01open.t5 @files = qw(foo bar baz quux Foo_Bar);
H A D02maxopen.t6 @files = qw(foo bar baz quux);
26 ok(fileno($path) || $path =~ /^(?:foo|bar)$/);
H A D03append.t5 @files = qw(foo bar baz quux Foo_Bar);
H A D04twoarg.t11 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 D05override.t11 unlink("Foo_Bar");
16 cacheout local $_ = "Foo_Bar";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/Long/t/
H A Dgol-basic.t17 @ARGV = qw(-Foo -baR --foo bar);
20 print "ok 1\n" if GetOptions ("foo", "Foo=s");
H A Dgol-compat.t14 @ARGV = qw(-Foo -baR --foo bar);
19 print "ok 1\n" if NGetOpt ("foo", "Foo=s");
H A Dgol-linkage.t14 @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...]

Completed in 109 milliseconds

<<21222324252627282930>>