Changeset 5636 for branches/Release01x00/core/tools/extender.pl

Timestamp:

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

Author:

OlivierRaginel

Message:

Item8084: Rewrite eval require

File:

• branches/Release01x00/core/tools/extender.pl (modified) (2 diffs)

branches/Release01x00/core/tools/extender.pl

@@ -650 +650 @@
     my $archive = shift;
 
-    eval 'require Archive::Zip';
-    if (! $@ ) {
+    if ( eval { require Archive::Zip } ) {
         my $zip           = Archive::Zip->new();
         my $err = $zip->read($archive);
@@ -693 +692 @@
     my $compressed = ( $archive =~ /z$/i ) ? 'z' : '';
 
-    eval 'require Archive::Tar';
-    if (! $@ ) {
+    if ( eval { require Archive::Tar } ) {
         my $tar = Archive::Tar->new();
         my $numberOfFiles = $tar->read( $archive, $compressed );