Changeset 5634

Timestamp:

11/25/09 15:51:27 (2 years ago)

Author:

OlivierRaginel

Message:

Item8084: Try gtar if tar fails

File:

• branches/Release01x00/core/tools/extender.pl (modified) (1 diff)

branches/Release01x00/core/tools/extender.pl

@@ -725 +725 @@
     else {
         print STDERR
-          "Archive::Tar is not installed; trying tar on the command-line\n";
-        print `tar xvf$compressed $archive`;
-        if ($?) {
-            print STDERR "tar failed: $?\n";
-            return 0;
-        }
+          "Archive::Tar is not installed: $@\n";
+        for my $tarBin ( qw( tar gtar ) ) {
+            print STDERR "Trying $tarBin on the command-line\n";
+            system $tarBin, "xvf$compressed", $archive and return 1;
+            if ($?) {
+                print STDERR "$tarBin failed: $?\n";
+            }
+        }
+        return 0;
     }