Remove "" from command line args

rurban · Apr 28, 1996 · 07f049c · 07f049c
1 parent 0414b1a
commit 07f049c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/vms/writemain.pl b/vms/writemain.pl
@@ -40,8 +40,10 @@
 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) {