From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 27 Mar 2006 00:04:10 +0000 (+0000)
Subject: EU::MM::MM_VMS::one_liner must quote "--" argument
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=002ab805506f31960772344deee6173387b1daa2;p=p5sagit%2Fp5-mst-13.2.git

EU::MM::MM_VMS::one_liner must quote "--" argument

p4raw-id: //depot/perl@27613
---

diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm
index c61f5b0..7514c61 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 \"--\"};
 }