diff options
author | David Golden <dagolden@cpan.org> | 2009-11-20 15:08:48 -0500 |
---|---|---|
committer | David Golden <dagolden@cpan.org> | 2009-11-20 15:08:48 -0500 |
commit | 074f7b78c4d97c74b49b2220b52710cd138da795 (patch) | |
tree | e1190a6fff8c99f1eca849a37562c65aa84260f5 /cpan | |
parent | 1c8cb608be521a7a75396f6874d94ea00541c9a2 (diff) | |
download | perl-074f7b78c4d97c74b49b2220b52710cd138da795.tar.gz |
quick-fix broken Module::Build::Platforms::VMS
Diffstat (limited to 'cpan')
-rw-r--r-- | cpan/Module-Build/lib/Module/Build/Platform/VMS.pm | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/cpan/Module-Build/lib/Module/Build/Platform/VMS.pm b/cpan/Module-Build/lib/Module/Build/Platform/VMS.pm index a17c8f46e9..bdea755558 100644 --- a/cpan/Module-Build/lib/Module/Build/Platform/VMS.pm +++ b/cpan/Module-Build/lib/Module/Build/Platform/VMS.pm @@ -5,6 +5,7 @@ use vars qw($VERSION); $VERSION = '0.35_09'; $VERSION = eval $VERSION; use Module::Build::Base; +use Config; use vars qw(@ISA); @ISA = qw(Module::Build::Base); @@ -131,22 +132,22 @@ sub _quote_args { # or if we get a single arg that is an array reference, quote the # elements of it and return the reference. my ($self, @args) = @_; - my $got_arrayref = (scalar(@args) == 1 - && UNIVERSAL::isa($args[0], 'ARRAY')) - ? 1 + my $got_arrayref = (scalar(@args) == 1 + && UNIVERSAL::isa($args[0], 'ARRAY')) + ? 1 : 0; # Do not quote qualifiers that begin with '/'. - map { if (!/^\//) { + map { if (!/^\//) { $_ =~ s/\"/""/g; # escape C<"> by doubling $_ = q(").$_.q("); } } - ($got_arrayref ? @{$args[0]} + ($got_arrayref ? @{$args[0]} : @args ); - return $got_arrayref ? $args[0] + return $got_arrayref ? $args[0] : join(' ', @args); } @@ -261,7 +262,7 @@ sub oneliner { =item _infer_xs_spec -Inherit the standard version but tweak the library file name to be +Inherit the standard version but tweak the library file name to be something Dynaloader can find. =cut @@ -306,7 +307,7 @@ sub rscan_dir { =item dist_dir -Inherit the standard version but replace embedded dots with underscores because +Inherit the standard version but replace embedded dots with underscores because a dot is the directory delimiter on VMS. =cut @@ -321,7 +322,7 @@ sub dist_dir { =item man3page_name -Inherit the standard version but chop the extra manpage delimiter off the front if +Inherit the standard version but chop the extra manpage delimiter off the front if there is one. The VMS version of splitdir('[.foo]') returns '', 'foo'. =cut @@ -423,7 +424,7 @@ sub _detildefy { $newdirs = File::Spec::Unix->catdir(@hdirs, @backup, @dirs); } - + # Now put the two cases back together $arg = File::Spec::Unix->catpath($hvol, $newdirs, $file); @@ -502,7 +503,7 @@ sub _unix_rpt { $unix_rpt = VMS::Feature::current("filename_unix_report"); } else { my $env_unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || ''; - $unix_rpt = $env_unix_rpt =~ /^[ET1]/i; + $unix_rpt = $env_unix_rpt =~ /^[ET1]/i; } return $unix_rpt; } @@ -515,7 +516,7 @@ sub _efs { $efs = VMS::Feature::current("efs_charset"); } else { my $env_efs = $ENV{'DECC$EFS_CHARSET'} || ''; - $efs = $env_efs =~ /^[ET1]/i; + $efs = $env_efs =~ /^[ET1]/i; } return $efs; } |