Change 13571: DJGPP tweaks from Laszlo Molnar.

[Jarkko Hietaniemi]

Change 13571 by jhi@alpha on 2001/12/09 23:32:08

        DJGPP tweaks from Laszlo Molnar.

Affected files ...

.... //depot/perl/djgpp/config.over#24 edit
.... //depot/perl/lib/File/Find/t/find.t#5 edit
.... //depot/perl/lib/File/Find/t/taint.t#6 edit
.... //depot/perl/t/pod/find.t#10 edit

Differences ...

==== //depot/perl/djgpp/config.over#24 (text) ====
Index: perl/djgpp/config.over
--- perl/djgpp/config.over.~1~  Sun Dec  9 16:45:06 2001
+++ perl/djgpp/config.over      Sun Dec  9 16:45:06 2001
@@ -46,8 +46,9 @@
      -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")

==== //depot/perl/lib/File/Find/t/find.t#5 (text) ====
Index: perl/lib/File/Find/t/find.t
--- perl/lib/File/Find/t/find.t.~1~     Sun Dec  9 16:45:06 2001
+++ perl/lib/File/Find/t/find.t Sun Dec  9 16:45:06 2001
@@ -50,10 +50,10 @@
 }
 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;

==== //depot/perl/lib/File/Find/t/taint.t#6 (text) ====
Index: perl/lib/File/Find/t/taint.t
--- perl/lib/File/Find/t/taint.t.~1~    Sun Dec  9 16:45:06 2001
+++ perl/lib/File/Find/t/taint.t        Sun Dec  9 16:45:06 2001
@@ -49,16 +49,16 @@
 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;

==== //depot/perl/t/pod/find.t#10 (text) ====
Index: perl/t/pod/find.t
--- perl/t/pod/find.t.~1~       Sun Dec  9 16:45:06 2001
+++ perl/t/pod/find.t   Sun Dec  9 16:45:06 2001
@@ -53,6 +53,9 @@
     }
     ok($count/($#result+1)-1,$#compare);
 }
+elsif ($^O eq 'dos') {
+    ok(lc $result,lc $compare);
+}
 else {
     ok($result,$compare);
 }
End of Patch.