diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-09 23:32:08 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-09 23:32:08 +0000 |
| commit | ea9ff3e904561f717ed20a297f2dc44564bb7035 (patch) | |
| tree | 2ad7b75371e820040b0f247c2caca8734cdd06ec | |
| parent | 407b02b18cd4aa4559559e2186ed579096fab094 (diff) | |
| download | perl-ea9ff3e904561f717ed20a297f2dc44564bb7035.tar.gz | |
DJGPP tweaks from Laszlo Molnar.
p4raw-id: //depot/perl@13571
| -rw-r--r-- | djgpp/config.over | 5 | ||||
| -rw-r--r-- | lib/File/Find/t/find.t | 4 | ||||
| -rw-r--r-- | lib/File/Find/t/taint.t | 8 | ||||
| -rw-r--r-- | t/pod/find.t | 3 |
4 files changed, 12 insertions, 8 deletions
diff --git a/djgpp/config.over b/djgpp/config.over index 8d6bb3e89b..032f85e2b8 100644 --- a/djgpp/config.over +++ b/djgpp/config.over @@ -46,8 +46,9 @@ repair() -e 's=cwd=Cwd=' \ -e 's=perlio/via=PerlIO/Via=' \ -e 's=xs/typemap=XS/Typemap=' \ - -e 's=unicode/normalize?=Unicode/Normalize=' \ - -e 's=i18n/langinfo=I18N/Langinfo=' + -e 's=unicode/normaliz=Unicode/Normalize=' \ + -e 's=i18n/langinfo=I18N/Langinfo=' \ + -e 's=devel/ppport=Devel/PPPort=' } static_ext=$(repair "$static_ext") extensions=$(repair "$extensions") diff --git a/lib/File/Find/t/find.t b/lib/File/Find/t/find.t index 823c7b15cd..097f0fc7b1 100644 --- a/lib/File/Find/t/find.t +++ b/lib/File/Find/t/find.t @@ -50,10 +50,10 @@ BEGIN { } cleanup(); -find({wanted => sub { print "ok 1\n" if $_ eq 'commonsense.t'; } }, +find({wanted => sub { print "ok 1\n" if $_ eq 'access.t'; } }, File::Spec->curdir); -finddepth({wanted => sub { print "ok 2\n" if $_ eq 'commonsense.t'; } }, +finddepth({wanted => sub { print "ok 2\n" if $_ eq 'access.t'; } }, File::Spec->curdir); my $case = 2; diff --git a/lib/File/Find/t/taint.t b/lib/File/Find/t/taint.t index 7643040d57..b36bf89122 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 'commonsense.t') }, +find({wanted => sub { $found = 1 if ($_ eq 'access.t') }, untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir); -ok($found, 'commonsense.t found'); +ok($found, 'access.t found'); $found = 0; -finddepth({wanted => sub { $found = 1 if $_ eq 'commonsense.t'; }, +finddepth({wanted => sub { $found = 1 if $_ eq 'access.t'; }, untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir); -ok($found, 'commonsense.t found again'); +ok($found, 'access.t found again'); my $case = 2; my $FastFileTests_OK = 0; diff --git a/t/pod/find.t b/t/pod/find.t index 1bac930f56..df36147635 100644 --- a/t/pod/find.t +++ b/t/pod/find.t @@ -53,6 +53,9 @@ if ($^O eq 'VMS') { } ok($count/($#result+1)-1,$#compare); } +elsif ($^O eq 'dos') { + ok(lc $result,lc $compare); +} else { ok($result,$compare); } |