diff options
| author | Karl Berry <karl@freefriends.org> | 2017-04-18 23:10:57 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2017-04-18 23:10:57 +0000 |
| commit | 40b4b6e177c62a14c166dbba6adf3abc415af4b2 (patch) | |
| tree | 2996bf29509c806bd8064fb6cf38092c1b375ff8 /Master/tlpkg/tlperl/lib/ExtUtils/MM_VMS.pm | |
| parent | 8e743c86b6872f30b7a35c72aa944455157d4b3f (diff) | |
tlperl 5.24.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@43914 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/MM_VMS.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/ExtUtils/MM_VMS.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/ExtUtils/MM_VMS.pm b/Master/tlpkg/tlperl/lib/ExtUtils/MM_VMS.pm index 45d06b00c52..60dd8713fc2 100644 --- a/Master/tlpkg/tlperl/lib/ExtUtils/MM_VMS.pm +++ b/Master/tlpkg/tlperl/lib/ExtUtils/MM_VMS.pm @@ -15,7 +15,7 @@ BEGIN { use File::Basename; -our $VERSION = '7.04_01'; +our $VERSION = '7.10_02'; require ExtUtils::MM_Any; require ExtUtils::MM_Unix; @@ -1764,7 +1764,8 @@ sub oneliner { $cmd =~ s{^\n+}{}; $cmd =~ s{\n+$}{}; - $cmd = $self->quote_literal($cmd); + my @cmds = split /\n/, $cmd; + $cmd = join " \n\t -e ", map $self->quote_literal($_), @cmds; $cmd = $self->escape_newlines($cmd); # Switches must be quoted else they will be lowercased. |