Item2263: Fix test for Archive::Tar and Archive::Zip

git-svn-id: http://svn.foswiki.org/branches/Release01x00@5278 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Oct 16, 2009 · 49068ed · 49068ed
1 parent 26e3762
commit 49068ed
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/core/tools/extender.pl b/core/tools/extender.pl
@@ -647,7 +647,7 @@ sub unzip {
     my $archive = shift;
 
     eval 'require Archive::Zip';
-    if ( $@ ) {
+    if (! $@ ) {
         my $zip           = Archive::Zip->new();
         my $err = $zip->read($archive);
         if ( $err ) {
@@ -690,7 +690,7 @@ sub untar {
     my $compressed = ( $archive =~ /z$/i ) ? 'z' : '';
 
     eval 'require Archive::Tar';
-    if ( $@ ) {
+    if (! $@ ) {
         my $tar = Archive::Tar->new();
         my $numberOfFiles = $tar->read( $archive, $compressed );
         unless ( $numberOfFiles > 0 ) {