diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-06-03 22:05:58 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2012-06-05 20:59:36 +0200 |
| commit | e06977207755fde18af09bfe45017ee7b03cc8da (patch) | |
| tree | 8a48c3af4beaf58e0454ff0951f82e9a2506e498 /make_ext.pl | |
| parent | 43f197b58b234b5f912893ab0eb369af9d2f09c0 (diff) | |
| download | perl-e06977207755fde18af09bfe45017ee7b03cc8da.tar.gz | |
In make_ext.pl, inline _macroify_passthrough() into its only caller.
Diffstat (limited to 'make_ext.pl')
| -rw-r--r-- | make_ext.pl | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/make_ext.pl b/make_ext.pl index 399bd41713..28a67a33f9 100644 --- a/make_ext.pl +++ b/make_ext.pl @@ -449,8 +449,11 @@ EOS } if ($is_VMS) { - _macroify_passthrough($pass_through); - unshift @$pass_through, "/DESCRIPTION=$makefile"; + _quote_args($pass_through); + @$pass_through = ( + "/DESCRIPTION=$makefile", + '/MACRO=(' . join(',',@$pass_through) . ')' + ); } if (!$target or $target !~ /clean$/) { @@ -478,11 +481,3 @@ sub _quote_args { } @{$args} ; } - -sub _macroify_passthrough { - my $passthrough = shift; - _quote_args($passthrough); - my $macro = '/MACRO=(' . join(',',@$passthrough) . ')'; - @$passthrough = (); - @$passthrough[0] = $macro; -} |