Changeset 16824

Timestamp:

2008-08-15T15:32:32+12:00 (16 years ago)

Author:

davidb

Message:

Filenames are now quoted in system calls, so they can have spaces in them.

File:

• gsdl/trunk/perllib/plugins/ZIPPlugin.pm (modified) (5 diffs)

gsdl/trunk/perllib/plugins/ZIPPlugin.pm

@@ -146 +146 @@
     my ($file) = @_;
 
-    if (system ("bunzip $file")!=0)
+    if (system ("bunzip \"$file\"")!=0)
     {
     &util::rm ($file);
@@ -156 +156 @@
     my ($file) = @_;
 
-    if (system ("bunzip2 $file")!=0)
+    if (system ("bunzip2 \"$file\"")!=0)
     {
     &util::rm ($file);
@@ -166 +166 @@
     my ($file) = @_;
 
-    system ("unzip $file");
+    system ("unzip \"$file\"");
     &util::rm ($file) if -e $file;
 }
@@ -174 +174 @@
     my ($file) = @_;
 
-    system ("tar xf $file");
+    system ("tar xf \"$file\"");
     &util::rm ($file) if -e $file;
 }
@@ -182 +182 @@
     my ($file) = @_;
 
-    if (system ("gunzip $file")!=0)
+    if (system ("gunzip \"$file\"")!=0)
     {
     &util::rm ($file);