In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/50255d58c0706bb8dc18d9013e1541619334546f?hp=30e682852bf42358156ed62e06e91f75e9f5b807>
- Log ----------------------------------------------------------------- commit 50255d58c0706bb8dc18d9013e1541619334546f Author: Craig A. Berry <[email protected]> Date: Thu Jun 4 10:29:57 2009 -0500 Test case to go with 30e682852bf42358156ed62e06e91f75e9f5b807. We should be able to depend on SYS$SCRATCH being a non-rooted logical name. M vms/ext/filespec.t commit 8415bfe009d4d13c8d970b3e09ff685cfe5dc0d2 Author: Craig A. Berry <[email protected]> Date: Thu Jun 4 08:10:50 2009 -0500 MakeMaker must handle an empty $self->{LIBS} array. 6.52 broke the build on VMS because the Makefile.PL for Time::HiRes sends C<'LIBS' => []> to WriteMakefile() and the code to handle that case was removed in a refactor, so we ended up not linking against the main perl library (perlshr.exe on VMS). More details and an upstream submission of this patch are at: https://rt.cpan.org/Ticket/Display.html?id=46633 M lib/ExtUtils/MM_Any.pm ----------------------------------------------------------------------- Summary of changes: lib/ExtUtils/MM_Any.pm | 6 +++--- vms/ext/filespec.t | 1 + 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/ExtUtils/MM_Any.pm b/lib/ExtUtils/MM_Any.pm index 9ee5abc..4fde1fe 100644 --- a/lib/ExtUtils/MM_Any.pm +++ b/lib/ExtUtils/MM_Any.pm @@ -1778,9 +1778,9 @@ CODE # undefined. In any case we turn it into an anon array: # May check $Config{libs} too, thus not empty. - $self->{LIBS} = !defined $self->{LIBS} ? [''] : - !ref $self->{LIBS} ? [$self->{LIBS}] : - $self->{LIBS} ; + $self->{LIBS} = [$self->{LIBS}] unless ref $self->{LIBS}; + + $self->{LIBS} = [''] unless @{$self->{LIBS}} && defined $self->{LIBS}[0]; foreach my $libs ( @{$self->{LIBS}} ){ $libs =~ s/^\s*(.*\S)\s*$/$1/; # remove leading and trailing whitespace diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t index 11b6698..5dd27c9 100644 --- a/vms/ext/filespec.t +++ b/vms/ext/filespec.t @@ -156,6 +156,7 @@ __down_:[__the_.__garden_.__path_...] unixpath /__down_/__the_/__garden_ __down_/__the_/__garden_/__path_ vmspath [.__down_.__the_.__garden_.__path_] ^ __path_ vmspath [.__path_] ^ / vmspath sys$disk:[000000] ^* +/sys$scratch vmspath sys$scratch: ^ # Redundant characters in Unix paths //__some_/__where_//__over_/../__the_.__rainbow_ vmsify __some_:[__where_]__the_.__rainbow_ __some_:[__where_.__over_.-]__the_.__rainbow_ -- Perl5 Master Repository
