get extutils.t working on VMS (again)

Message-Id: <a05101008b7503dc9dc2f@[172.16.52.1]>

p4raw-id: //depot/perl@10621

diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm
index 57c4005..295c4ef 100644 (file)
--- a/lib/File/Spec/VMS.pm
+++ b/lib/File/Spec/VMS.pm
@@ -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

diff --git a/t/lib/extutils.t b/t/lib/extutils.t
index be03cb1..f59e233 100644 (file)
--- a/t/lib/extutils.t
+++ b/t/lib/extutils.t
@@ -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