diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-04-28 23:25:51 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-04-28 23:25:51 +0000 |
| commit | 07f049cb527099650c0a61148a7ab92f6e3d4396 (patch) | |
| tree | 07c40c52c0c7cd267e596a33a131f194e151b1a3 /vms | |
| parent | 0414b1a0b20916100011e88592729639e59afcff (diff) | |
| download | perl-07f049cb527099650c0a61148a7ab92f6e3d4396.tar.gz | |
Remove "" from command line args
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/writemain.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/vms/writemain.pl b/vms/writemain.pl index eb059f810a..5f1c8bf0d3 100644 --- a/vms/writemain.pl +++ b/vms/writemain.pl @@ -40,8 +40,10 @@ xs_init() EOH if (@ARGV) { + $names = join(' ',@ARGV); + $names =~ tr/"//d; # Plan9 doesn't remove "" on command line # Allow for multiple names in one quoted group - @exts = split(/\s+/, join(' ',@ARGV)); + @exts = split(/\s+/,$names); } if (@exts) { |