Author: kwilliams
Date: Tue Nov 6 14:47:02 2007
New Revision: 10176
Modified:
Module-Build/trunk/Changes
Module-Build/trunk/lib/Module/Build/Platform/VMS.pm
Log:
Fix some cmd-line quoting stuff on VMS
Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes (original)
+++ Module-Build/trunk/Changes Tue Nov 6 14:47:02 2007
@@ -1,5 +1,7 @@
Revision history for Perl extension Module::Build.
+ - Fixed some stuff in how VMS command-args get quoted. [John E. Malmberg]
+
- VMS now overrides localize_file_path() and localize_dir_path() so
we don't need to do special stuff in the general case. [John
E. Malmberg]
Modified: Module-Build/trunk/lib/Module/Build/Platform/VMS.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Platform/VMS.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Platform/VMS.pm Tue Nov 6 14:47:02 2007
@@ -136,7 +136,9 @@
? 1
: 0;
- map { $_ = q(").$_.q(") if !/^\"/ && length($_) > 0 }
+ # Do not quote qualifiers that begin with '/' or already
+ # quoted arguments.
+ map { $_ = q(").$_.q(") if !/^[\"|\/]/ && length($_) > 0 }
($got_arrayref ? @{$args[0]}
: @args
);
