Special mkdir() for VMS

[perl5.git] / vms / writemain.pl

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