From: Craig A. Berry Date: Fri, 15 Jun 2001 18:39:42 +0000 (-0500) Subject: get extutils.t working on VMS (again) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7b6ffde5e09a736903fc6998f766d75bc05e0d40;p=p5sagit%2Fp5-mst-13.2.git get extutils.t working on VMS (again) Message-Id: p4raw-id: //depot/perl@10621 --- diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm index 57c4005..295c4ef 100644 --- a/lib/File/Spec/VMS.pm +++ b/lib/File/Spec/VMS.pm @@ -157,7 +157,8 @@ sub canonpath { } else { $path =~ s-\]\[--g; $path =~ s/> 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 --- 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