[MacPerl-Porters] [PATCHES] charnames.t, diagnostics.t forMacPerl 5.7.3/5.8.0

[Thomas Wegner]

Greetings,

here are patches for :lib:charnames.t and :lib:diagnostics.t (MacPerl 
5.7.3/5.8.0).


diff -ru charnames.t.orig charnames.t
--- charnames.t.orig    Wed May  8 01:26:57 2002
+++ charnames.t Fri May 24 19:19:21 2002
@@ -173,13 +173,13 @@
  print "not " unless "\N{NULL}" eq "\c@";
  print "ok 25\n";

-print "not " unless "\N{LINE FEED (LF)}" eq "\n";
+print "not " unless "\N{LINE FEED (LF)}" eq "\012";
  print "ok 26\n";

-print "not " unless "\N{LINE FEED}" eq "\n";
+print "not " unless "\N{LINE FEED}" eq "\012";
  print "ok 27\n";

-print "not " unless "\N{LF}" eq "\n";
+print "not " unless "\N{LF}" eq "\012";
  print "ok 28\n";

  my $nel = ord("A") == 193 ? qr/^(?:\x15|\x25)$/ : qr/^\x85$/;


diff -ru diagnostics.t.orig diagnostics.t
--- diagnostics.t.orig  Wed May 29 18:12:09 2002
+++ diagnostics.t       Wed May 29 18:34:00 2002
@@ -1,8 +1,16 @@
  #!./perl

  BEGIN {
-    chdir '..' if -d '../pod' && -d '../t';
-    @INC = 'lib';
+       if ($^O eq 'MacOS')
+       {
+               chdir '::' if -d '::pod' && -d '::t';
+       @INC = ':lib:';
+       }
+       else
+       {
+       chdir '..' if -d '../pod' && -d '../t';
+       @INC = 'lib';
+       }
  }

  use Test::More tests => 2;



__END__ of 2 patches


Best regards,

--Thomas