This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
EU::MM::MM_VMS::one_liner must quote "--" argument
authorCraig A. Berry <craigberry@mac.com>
Mon, 27 Mar 2006 00:04:10 +0000 (00:04 +0000)
committerCraig A. Berry <craigberry@mac.com>
Mon, 27 Mar 2006 00:04:10 +0000 (00:04 +0000)
p4raw-id: //depot/perl@27613

lib/ExtUtils/MM_VMS.pm

index c61f5b0..7514c61 100644 (file)
@@ -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 \"--\"};
 }