[Module-build-checkins] Module-Build/lib/Module/Build/Platform VMS.pm,1.10,1.11

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build/Platform
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27541/lib/Module/Build/Platform

Modified Files:
	VMS.pm 
Log Message:
Fix some VMS quoting issues and add _backticks() and _quote_args() methods

Index: VMS.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Platform/VMS.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- VMS.pm	3 Dec 2005 03:08:14 -0000	1.10
+++ VMS.pm	24 Mar 2006 23:26:43 -0000	1.11
@@ -119,6 +119,18 @@
 }
 
 
+sub _quote_args {
+  # Returns a string that can become [part of] a command line with
+  # proper quoting so that the subprocess sees this same list of args.
+  my ($self, @args) = @_;
+
+  my $return_args = '';
+  for (@args) {
+    $return_args .= q( ").$_.q(") if !/^\"/ && length($_) > 0;
+  }
+  return $return_args;
+}
+
 =back
 
 =head1 AUTHOR