get extutils.t working on VMS (again)
authorCraig A. Berry <craigberry@mac.com>
Fri, 15 Jun 2001 18:39:42 +0000 (13:39 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 16 Jun 2001 13:28:37 +0000 (13:28 +0000)
Message-Id: <a05101008b7503dc9dc2f@[172.16.52.1]>

p4raw-id: //depot/perl@10621

lib/File/Spec/VMS.pm
t/lib/extutils.t

index 57c4005..295c4ef 100644 (file)
@@ -157,7 +157,8 @@ sub canonpath {
     }
     else {
       $path =~ s-\]\[--g;  $path =~ s/><//g;            # foo.][bar       ==> foo.bar
-      $path =~ s/([\[<])000000\./$1/;                   # [000000.foo     ==> foo
+      $path =~ s/([\[<])000000\./$1/;                   # [000000.foo     ==> [foo
+      $path =~ s/([^-]+)\.000000([\]\>])/$1$2/;         # foo.000000]     ==> foo]
       1 while $path =~ s{([\[<-])\.-}{$1-};             # [.-.-           ==> [--
       $path =~ s/\.[^\[<\.]+\.-([\]\>])/$1/;            # bar.foo.-]      ==> bar]
       $path =~ s/([\[<])(-+)/$1 . "\cx" x length($2)/e; # encode leading '-'s
index be03cb1..f59e233 100644 (file)
@@ -87,7 +87,7 @@ push @files, "test.h";
 open FH, ">$header" or die "open >$header: $!\n";
 print FH <<"EOT";
 #define FIVE 5
-#define OK6 "ok 6\n"
+#define OK6 "ok 6\\n"
 #define OK7 1
 #define FARTHING 0.25
 #define NOT_ZERO 1