diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-03-10 08:27:12 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-03-11 04:53:50 +0000 |
| commit | 492935018b279c3965aa25ebfc1c7f28faf8fae0 (patch) | |
| tree | 5dbd445eab6829e4a7d66c88aa59e40111b57a5e /lib/File/Find | |
| parent | b4e83e5bb325c4a237d83150af9e71a1219f53fa (diff) | |
| download | perl-492935018b279c3965aa25ebfc1c7f28faf8fae0.tar.gz | |
Subject: [PATCH] Hash::Util & restricted hash touch up, part 1
Date: Sun, 10 Mar 2002 13:27:12 -0500
Message-Id: <20020310182712.GC693@blackrider>
Subject: [PATCH] Hash::Util part 2
From: Michael G Schwern <schwern@pobox.com>
Date: Sun, 10 Mar 2002 15:09:34 -0500
Message-Id: <20020310200934.GB27112@blackrider>
Subject: [PATCH] Hash::Util MANIFEST correction
From: Michael G Schwern <schwern@pobox.com>
Date: Sun, 10 Mar 2002 16:27:07 -0500
Message-Id: <20020310212707.GF27112@blackrider>
(Also changes find.t and taint.t, which were looking for access.t)
p4raw-id: //depot/perl@15166
Diffstat (limited to 'lib/File/Find')
| -rw-r--r-- | lib/File/Find/t/find.t | 4 | ||||
| -rw-r--r-- | lib/File/Find/t/taint.t | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lib/File/Find/t/find.t b/lib/File/Find/t/find.t index c74a646439..745c6efe57 100644 --- a/lib/File/Find/t/find.t +++ b/lib/File/Find/t/find.t @@ -51,10 +51,10 @@ BEGIN { cleanup(); -find({wanted => sub { print "ok 1\n" if $_ eq 'access.t'; } }, +find({wanted => sub { print "ok 1\n" if $_ eq '1_compile.t'; } }, File::Spec->curdir); -finddepth({wanted => sub { print "ok 2\n" if $_ eq 'access.t'; } }, +finddepth({wanted => sub { print "ok 2\n" if $_ eq '1_compile.t'; } }, File::Spec->curdir); diff --git a/lib/File/Find/t/taint.t b/lib/File/Find/t/taint.t index 2c76138144..cef13a1191 100644 --- a/lib/File/Find/t/taint.t +++ b/lib/File/Find/t/taint.t @@ -49,16 +49,16 @@ use Cwd; cleanup(); my $found; -find({wanted => sub { $found = 1 if ($_ eq 'access.t') }, +find({wanted => sub { $found = 1 if ($_ eq '1_compile.t') }, untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir); -ok($found, 'access.t found'); +ok($found, '1_compile.t found'); $found = 0; -finddepth({wanted => sub { $found = 1 if $_ eq 'access.t'; }, +finddepth({wanted => sub { $found = 1 if $_ eq '1_compile.t'; }, untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir); -ok($found, 'access.t found again'); +ok($found, '1_compile.t found again'); my $case = 2; my $FastFileTests_OK = 0; |