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
|
