From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sun, 28 Apr 1996 23:25:51 +0000 (+0000)
Subject: Remove "" from command line args
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=07f049cb527099650c0a61148a7ab92f6e3d4396;p=p5sagit%2Fp5-mst-13.2.git

Remove "" from command line args
---

diff --git a/vms/writemain.pl b/vms/writemain.pl
index eb059f8..5f1c8bf 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) {