diff options
| author | Craig A. Berry <craigberry@mac.com> | 2006-03-27 00:04:10 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-03-27 00:04:10 +0000 |
| commit | 002ab805506f31960772344deee6173387b1daa2 (patch) | |
| tree | e8865422ec97b319f96d8fd803136ae0923f188f /lib/ExtUtils/MM_VMS.pm | |
| parent | 7c58897d3b95e0096fb86a20121492729a89881c (diff) | |
| download | perl-002ab805506f31960772344deee6173387b1daa2.tar.gz | |
EU::MM::MM_VMS::one_liner must quote "--" argument
p4raw-id: //depot/perl@27613
Diffstat (limited to 'lib/ExtUtils/MM_VMS.pm')
| -rw-r--r-- | lib/ExtUtils/MM_VMS.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index c61f5b0c32..7514c61be6 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -18,7 +18,7 @@ use File::Basename; # $Revision can't be on the same line or SVN/K gets confused use vars qw($Revision $VERSION @ISA); -$VERSION = '5.73_02'; +$VERSION = '5.73_03'; require ExtUtils::MM_Any; require ExtUtils::MM_Unix; @@ -1732,7 +1732,7 @@ sub oneliner { # Switches must be quoted else they will be lowercased. $switches = join ' ', map { qq{"$_"} } @$switches; - return qq{\$(ABSPERLRUN) $switches -e $cmd --}; + return qq{\$(ABSPERLRUN) $switches -e $cmd \"--\"}; } |