Hello community,

here is the log from the commit of package perl-Archive-Zip for 
openSUSE:Factory checked in at 2015-10-01 12:22:22
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Archive-Zip (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Archive-Zip.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Archive-Zip"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Archive-Zip/perl-Archive-Zip.changes        
2015-09-03 18:03:37.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Archive-Zip.new/perl-Archive-Zip.changes   
2015-10-01 12:22:24.000000000 +0200
@@ -1,0 +2,23 @@
+Sat Sep 26 08:32:21 UTC 2015 - [email protected]
+
+- updated to 1.53
+   see /usr/share/doc/packages/perl-Archive-Zip/Changes
+
+  1.53 Wed 22 Sep 2015
+      - rt.cpan.org #107268 - Archive-Zip-1.52.tar.gz is (nearly) empty
+        Thanks to SREZIC for the spot on my dad brain sleep schedule error
+        Creating the dist on OS X caused 'Numeric user ID too largeNumeric 
group ID too large'
+  
+  1.52 Tue 22 Sep 2015
+      - rt.cpan.org #105902, thanks HMBRAND
+
+-------------------------------------------------------------------
+Tue Sep 22 08:48:31 UTC 2015 - [email protected]
+
+- updated to 1.51
+   see /usr/share/doc/packages/perl-Archive-Zip/Changes
+
+  1.51 Tue 22 Sep 2015
+      - Compare vs filename checksum in crc32 script [github/talisein]
+
+-------------------------------------------------------------------

Old:
----
  Archive-Zip-1.50.tar.gz

New:
----
  Archive-Zip-1.53.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Archive-Zip.spec ++++++
--- /var/tmp/diff_new_pack.CYr1un/_old  2015-10-01 12:22:25.000000000 +0200
+++ /var/tmp/diff_new_pack.CYr1un/_new  2015-10-01 12:22:25.000000000 +0200
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Archive-Zip
-Version:        1.50
+Version:        1.53
 Release:        0
 %define cpan_name Archive-Zip
 Summary:        Provide an interface to ZIP archive files

++++++ Archive-Zip-1.50.tar.gz -> Archive-Zip-1.53.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/Changes new/Archive-Zip-1.53/Changes
--- old/Archive-Zip-1.50/Changes        2015-08-26 02:09:51.000000000 +0200
+++ new/Archive-Zip-1.53/Changes        2015-09-23 19:42:31.000000000 +0200
@@ -1,5 +1,16 @@
 Revision history for Perl extension Archive-Zip
 
+1.53 Wed 22 Sep 2015
+    - rt.cpan.org #107268 - Archive-Zip-1.52.tar.gz is (nearly) empty
+      Thanks to SREZIC for the spot on my dad brain sleep schedule error
+      Creating the dist on OS X caused 'Numeric user ID too largeNumeric group 
ID too large'
+
+1.52 Tue 22 Sep 2015
+    - rt.cpan.org #105902, thanks HMBRAND
+
+1.51 Tue 22 Sep 2015
+    - Compare vs filename checksum in crc32 script [github/talisein]
+
 1.50 Tue 25 Aug 2015
     - Fix t/08_readmember_record_sep.t for Win32 [github/pauloscustodio]
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/META.json 
new/Archive-Zip-1.53/META.json
--- old/Archive-Zip-1.50/META.json      2015-08-26 02:10:53.000000000 +0200
+++ new/Archive-Zip-1.53/META.json      2015-09-23 19:42:37.000000000 +0200
@@ -4,7 +4,7 @@
       "Ned Konz <[email protected]>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter 
version 2.120630",
+   "generated_by" : "ExtUtils::MakeMaker version 7.02, CPAN::Meta::Converter 
version 2.142060",
    "license" : [
       "perl_5"
    ],
@@ -53,5 +53,5 @@
          "url" : "https://github.com/redhotpenguin/perl-Archive-Zip-svn";
       }
    },
-   "version" : "1.50"
+   "version" : "1.53"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/META.yml 
new/Archive-Zip-1.53/META.yml
--- old/Archive-Zip-1.50/META.yml       2015-08-26 02:10:53.000000000 +0200
+++ new/Archive-Zip-1.53/META.yml       2015-09-23 19:42:37.000000000 +0200
@@ -3,33 +3,33 @@
 author:
   - 'Ned Konz <[email protected]>'
 build_requires:
-  Test::More: 0.88
+  Test::More: '0.88'
 configure_requires:
-  ExtUtils::MakeMaker: 0
+  ExtUtils::MakeMaker: '0'
 dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter 
version 2.120630'
+generated_by: 'ExtUtils::MakeMaker version 7.02, CPAN::Meta::Converter version 
2.142060'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
-  version: 1.4
+  version: '1.4'
 name: Archive-Zip
 no_index:
   directory:
     - t
     - inc
 requires:
-  Compress::Raw::Zlib: 2.017
-  File::Basename: 0
-  File::Copy: 0
-  File::Find: 0
-  File::Path: 0
-  File::Spec: 0.80
-  File::Temp: 0
-  IO::File: 0
-  IO::Handle: 0
-  IO::Seekable: 0
-  Time::Local: 0
-  perl: 5.006
+  Compress::Raw::Zlib: '2.017'
+  File::Basename: '0'
+  File::Copy: '0'
+  File::Find: '0'
+  File::Path: '0'
+  File::Spec: '0.80'
+  File::Temp: '0'
+  IO::File: '0'
+  IO::Handle: '0'
+  IO::Seekable: '0'
+  Time::Local: '0'
+  perl: '5.006'
 resources:
   repository: https://github.com/redhotpenguin/perl-Archive-Zip-svn
-version: 1.50
+version: '1.53'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/Makefile.PL 
new/Archive-Zip-1.53/Makefile.PL
--- old/Archive-Zip-1.50/Makefile.PL    2015-08-26 02:08:06.000000000 +0200
+++ new/Archive-Zip-1.53/Makefile.PL    2015-09-22 20:32:25.000000000 +0200
@@ -1,85 +1,90 @@
 use strict;
+
 BEGIN {
-       require 5.004;
+    require 5.004;
 }
 
 use Config;
 use ExtUtils::MakeMaker;
 
 WriteMakefile1(
-       META_MERGE => {
-               resources => {
-                       repository => 
'https://github.com/redhotpenguin/perl-Archive-Zip-svn',
-               },
-       },
-       NAME          => 'Archive::Zip',
-       VERSION_FROM  => 'lib/Archive/Zip.pm',
-       EXE_FILES     => [ 'script/crc32' ],
-       PREREQ_PM     => {
-               'Compress::Raw::Zlib' => '2.017',
-               # 'Data::Dumper'      => 0,      # examples/zipinfo.pl
-               'File::Path'          => 0,
-               'File::Find'          => 0,
-               'File::Basename'      => 0,
-               'File::Spec'          => '0.80',   # need splitpath()
-               'File::Copy'          => 0,
-               'File::Temp'          => 0,
-               # 'File::Which'       => '0.05', # Embedded in common.pl
-               # 'Getopt::Std'       => 0,      # examples/extract.pl
-               'IO::File'            => 0,
-               'IO::Handle'          => 0,
-               'IO::Seekable'        => 0,
-               'Time::Local'         => 0,
-       },
-       BUILD_REQUIRES => {
-               'Test::More'          => '0.88',
-       },
-       clean => {
-               FILES => join( ' ', qw{
-                       test.log
-                       testdir/*
-                       testdir/
-                       extracted/testdir/*
-                       extracted/testdir
-                       extracted/
-                       testin.zip
-                       testout.zip
-                       test2.zip
-               } ),
-       },
-       dist => {
-               COMPRESS => 'gzip',
-               SUFFIX   => '.gz',
-               ZIP      => 'zip',
-               ZIPFLAGS => '-r'
-       },
-       LICENSE => 'perl',
-       MIN_PERL_VERSION => 5.006,
-       BINARY_LOCATION => $Config{'archname'} . 
"/\$(DISTVNAME)-PPD.tar\$(SUFFIX)",
-       AUTHOR          => 'Ned Konz <[email protected]>',
-       ABSTRACT_FROM   => 'lib/Archive/Zip.pm',
+    META_MERGE => {
+        resources => {
+            repository => 
'https://github.com/redhotpenguin/perl-Archive-Zip-svn',
+        },
+    },
+    NAME         => 'Archive::Zip',
+    VERSION_FROM => 'lib/Archive/Zip.pm',
+    macro        => { TARFLAGS => "--format=ustar -c -v -f", },
+    EXE_FILES    => ['script/crc32'],
+    PREREQ_PM    => {
+        'Compress::Raw::Zlib' => '2.017',
+
+        # 'Data::Dumper'      => 0,      # examples/zipinfo.pl
+        'File::Path'     => 0,
+        'File::Find'     => 0,
+        'File::Basename' => 0,
+        'File::Spec'     => '0.80',    # need splitpath()
+        'File::Copy'     => 0,
+        'File::Temp'     => 0,
+
+        # 'File::Which'       => '0.05', # Embedded in common.pl
+        # 'Getopt::Std'       => 0,      # examples/extract.pl
+        'IO::File'     => 0,
+        'IO::Handle'   => 0,
+        'IO::Seekable' => 0,
+        'Time::Local'  => 0,
+    },
+    BUILD_REQUIRES => {
+        'Test::More' => '0.88',
+    },
+    clean => {
+        FILES => join( ' ', qw{
+                test.log
+                testdir/*
+                testdir/
+                extracted/testdir/*
+                extracted/testdir
+                extracted/
+                testin.zip
+                testout.zip
+                test2.zip
+                } ),
+    },
+    dist => {
+        COMPRESS => 'gzip',
+        SUFFIX   => '.gz',
+        ZIP      => 'zip',
+        ZIPFLAGS => '-r'
+    },
+    LICENSE          => 'perl',
+    MIN_PERL_VERSION => 5.006,
+    BINARY_LOCATION  => $Config{'archname'} . 
"/\$(DISTVNAME)-PPD.tar\$(SUFFIX)",
+    AUTHOR           => 'Ned Konz <[email protected]>',
+    ABSTRACT_FROM    => 'lib/Archive/Zip.pm',
 );
 
-sub WriteMakefile1 {  #Written by Alexandr Ciornii, version 0.21. Added by 
eumm-upgrade.
-       my %params=@_;
-       my $eumm_version=$ExtUtils::MakeMaker::VERSION;
-       $eumm_version=eval $eumm_version;
-       die "EXTRA_META is deprecated" if exists $params{EXTRA_META};
-       die "License not specified" if not exists $params{LICENSE};
-       if ($params{BUILD_REQUIRES} and $eumm_version < 6.5503) {
-               #EUMM 6.5502 has problems with BUILD_REQUIRES
-               $params{PREREQ_PM}={ %{$params{PREREQ_PM} || {}} , 
%{$params{BUILD_REQUIRES}} };
-               delete $params{BUILD_REQUIRES};
-       }
-       delete $params{CONFIGURE_REQUIRES} if $eumm_version < 6.52;
-       delete $params{MIN_PERL_VERSION} if $eumm_version < 6.48;
-       delete $params{META_MERGE} if $eumm_version < 6.46;
-       delete $params{META_ADD} if $eumm_version < 6.46;
-       delete $params{LICENSE} if $eumm_version < 6.31;
-       delete $params{AUTHOR} if $] < 5.005;
-       delete $params{ABSTRACT_FROM} if $] < 5.005;
-       delete $params{BINARY_LOCATION} if $] < 5.005;
+sub WriteMakefile1 {    #Written by Alexandr Ciornii, version 0.21. Added by 
eumm-upgrade.
+    my %params       = @_;
+    my $eumm_version = $ExtUtils::MakeMaker::VERSION;
+    $eumm_version = eval $eumm_version;
+    die "EXTRA_META is deprecated" if exists $params{EXTRA_META};
+    die "License not specified" if not exists $params{LICENSE};
+    if ( $params{BUILD_REQUIRES} and $eumm_version < 6.5503 ) {
+
+        #EUMM 6.5502 has problems with BUILD_REQUIRES
+        $params{PREREQ_PM} = { %{ $params{PREREQ_PM} || {} }, %{ 
$params{BUILD_REQUIRES} } };
+        delete $params{BUILD_REQUIRES};
+    }
+    delete $params{CONFIGURE_REQUIRES} if $eumm_version < 6.52;
+    delete $params{MIN_PERL_VERSION}   if $eumm_version < 6.48;
+    delete $params{META_MERGE}         if $eumm_version < 6.46;
+    delete $params{META_ADD}           if $eumm_version < 6.46;
+    delete $params{LICENSE}            if $eumm_version < 6.31;
+    delete $params{AUTHOR}             if $] < 5.005;
+    delete $params{ABSTRACT_FROM}      if $] < 5.005;
+    delete $params{BINARY_LOCATION}    if $] < 5.005;
 
-       WriteMakefile(%params);
+    WriteMakefile( %params );
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/lib/Archive/Zip/Archive.pm 
new/Archive-Zip-1.53/lib/Archive/Zip/Archive.pm
--- old/Archive-Zip-1.50/lib/Archive/Zip/Archive.pm     2015-08-26 
02:10:17.000000000 +0200
+++ new/Archive-Zip-1.53/lib/Archive/Zip/Archive.pm     2015-09-23 
19:41:14.000000000 +0200
@@ -13,7 +13,7 @@
 use vars qw( $VERSION @ISA );
 
 BEGIN {
-    $VERSION = '1.50';
+    $VERSION = '1.53';
     @ISA     = qw( Archive::Zip );
 
     if ($^O eq 'MSWin32') {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' 
old/Archive-Zip-1.50/lib/Archive/Zip/BufferedFileHandle.pm 
new/Archive-Zip-1.53/lib/Archive/Zip/BufferedFileHandle.pm
--- old/Archive-Zip-1.50/lib/Archive/Zip/BufferedFileHandle.pm  2015-08-26 
02:10:17.000000000 +0200
+++ new/Archive-Zip-1.53/lib/Archive/Zip/BufferedFileHandle.pm  2015-09-23 
19:41:14.000000000 +0200
@@ -13,7 +13,7 @@
 use vars qw{$VERSION};
 
 BEGIN {
-    $VERSION = '1.50';
+    $VERSION = '1.53';
     $VERSION = eval $VERSION;
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/lib/Archive/Zip/DirectoryMember.pm 
new/Archive-Zip-1.53/lib/Archive/Zip/DirectoryMember.pm
--- old/Archive-Zip-1.50/lib/Archive/Zip/DirectoryMember.pm     2015-08-26 
02:10:17.000000000 +0200
+++ new/Archive-Zip-1.53/lib/Archive/Zip/DirectoryMember.pm     2015-09-23 
19:41:14.000000000 +0200
@@ -6,7 +6,7 @@
 use vars qw( $VERSION @ISA );
 
 BEGIN {
-    $VERSION = '1.50';
+    $VERSION = '1.53';
     @ISA     = qw( Archive::Zip::Member );
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/lib/Archive/Zip/FileMember.pm 
new/Archive-Zip-1.53/lib/Archive/Zip/FileMember.pm
--- old/Archive-Zip-1.50/lib/Archive/Zip/FileMember.pm  2015-08-26 
02:10:17.000000000 +0200
+++ new/Archive-Zip-1.53/lib/Archive/Zip/FileMember.pm  2015-09-23 
19:41:14.000000000 +0200
@@ -4,7 +4,7 @@
 use vars qw( $VERSION @ISA );
 
 BEGIN {
-    $VERSION = '1.50';
+    $VERSION = '1.53';
     @ISA     = qw ( Archive::Zip::Member );
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/lib/Archive/Zip/Member.pm 
new/Archive-Zip-1.53/lib/Archive/Zip/Member.pm
--- old/Archive-Zip-1.50/lib/Archive/Zip/Member.pm      2015-08-26 
02:10:17.000000000 +0200
+++ new/Archive-Zip-1.53/lib/Archive/Zip/Member.pm      2015-09-23 
19:41:14.000000000 +0200
@@ -6,7 +6,7 @@
 use vars qw( $VERSION @ISA );
 
 BEGIN {
-    $VERSION = '1.50';
+    $VERSION = '1.53';
     @ISA     = qw( Archive::Zip );
 
     if ($^O eq 'MSWin32') {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/lib/Archive/Zip/MemberRead.pm 
new/Archive-Zip-1.53/lib/Archive/Zip/MemberRead.pm
--- old/Archive-Zip-1.50/lib/Archive/Zip/MemberRead.pm  2015-08-26 
02:10:17.000000000 +0200
+++ new/Archive-Zip-1.53/lib/Archive/Zip/MemberRead.pm  2015-09-23 
19:41:14.000000000 +0200
@@ -40,7 +40,7 @@
 my $nl;
 
 BEGIN {
-    $VERSION = '1.50';
+    $VERSION = '1.53';
     $VERSION = eval $VERSION;
 
 # Requirement for newline conversion. Should check for e.g., DOS and OS/2 as 
well, but am too lazy.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/lib/Archive/Zip/MockFileHandle.pm 
new/Archive-Zip-1.53/lib/Archive/Zip/MockFileHandle.pm
--- old/Archive-Zip-1.50/lib/Archive/Zip/MockFileHandle.pm      2015-08-26 
02:10:17.000000000 +0200
+++ new/Archive-Zip-1.53/lib/Archive/Zip/MockFileHandle.pm      2015-09-23 
19:41:14.000000000 +0200
@@ -10,7 +10,7 @@
 use vars qw{$VERSION};
 
 BEGIN {
-    $VERSION = '1.50';
+    $VERSION = '1.53';
     $VERSION = eval $VERSION;
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/lib/Archive/Zip/NewFileMember.pm 
new/Archive-Zip-1.53/lib/Archive/Zip/NewFileMember.pm
--- old/Archive-Zip-1.50/lib/Archive/Zip/NewFileMember.pm       2015-08-26 
02:10:17.000000000 +0200
+++ new/Archive-Zip-1.53/lib/Archive/Zip/NewFileMember.pm       2015-09-23 
19:41:14.000000000 +0200
@@ -4,7 +4,7 @@
 use vars qw( $VERSION @ISA );
 
 BEGIN {
-    $VERSION = '1.50';
+    $VERSION = '1.53';
     @ISA     = qw ( Archive::Zip::FileMember );
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/lib/Archive/Zip/StringMember.pm 
new/Archive-Zip-1.53/lib/Archive/Zip/StringMember.pm
--- old/Archive-Zip-1.50/lib/Archive/Zip/StringMember.pm        2015-08-26 
02:10:17.000000000 +0200
+++ new/Archive-Zip-1.53/lib/Archive/Zip/StringMember.pm        2015-09-23 
19:41:14.000000000 +0200
@@ -4,7 +4,7 @@
 use vars qw( $VERSION @ISA );
 
 BEGIN {
-    $VERSION = '1.50';
+    $VERSION = '1.53';
     @ISA     = qw( Archive::Zip::Member );
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/lib/Archive/Zip/Tree.pm 
new/Archive-Zip-1.53/lib/Archive/Zip/Tree.pm
--- old/Archive-Zip-1.50/lib/Archive/Zip/Tree.pm        2015-08-26 
02:10:17.000000000 +0200
+++ new/Archive-Zip-1.53/lib/Archive/Zip/Tree.pm        2015-09-23 
19:41:14.000000000 +0200
@@ -4,7 +4,7 @@
 use vars qw{$VERSION};
 
 BEGIN {
-       $VERSION = '1.50';
+       $VERSION = '1.53';
 }
 
 use Archive::Zip;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/lib/Archive/Zip/ZipFileMember.pm 
new/Archive-Zip-1.53/lib/Archive/Zip/ZipFileMember.pm
--- old/Archive-Zip-1.50/lib/Archive/Zip/ZipFileMember.pm       2015-08-26 
02:10:17.000000000 +0200
+++ new/Archive-Zip-1.53/lib/Archive/Zip/ZipFileMember.pm       2015-09-23 
19:41:14.000000000 +0200
@@ -4,7 +4,7 @@
 use vars qw( $VERSION @ISA );
 
 BEGIN {
-    $VERSION = '1.50';
+    $VERSION = '1.53';
     @ISA     = qw ( Archive::Zip::FileMember );
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/lib/Archive/Zip.pm 
new/Archive-Zip-1.53/lib/Archive/Zip.pm
--- old/Archive-Zip-1.50/lib/Archive/Zip.pm     2015-08-26 02:10:17.000000000 
+0200
+++ new/Archive-Zip-1.53/lib/Archive/Zip.pm     2015-09-23 19:41:14.000000000 
+0200
@@ -14,7 +14,7 @@
 use vars qw( $VERSION @ISA );
 
 BEGIN {
-    $VERSION = '1.50';
+    $VERSION = '1.53';
 
     require Exporter;
     @ISA = qw( Exporter );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Archive-Zip-1.50/script/crc32 
new/Archive-Zip-1.53/script/crc32
--- old/Archive-Zip-1.50/script/crc32   2015-08-26 02:08:06.000000000 +0200
+++ new/Archive-Zip-1.53/script/crc32   2015-09-22 07:59:55.000000000 +0200
@@ -10,7 +10,7 @@
 
 use vars qw( $VERSION );
 BEGIN {
-    $VERSION = '1.31_04';
+    $VERSION = '1.51';
 }
 
 my $totalFiles = scalar(@ARGV);
@@ -31,7 +31,18 @@
     while ( $bytesRead = $fh->read( $buffer, 32768 ) ) {
         $crc = Archive::Zip::computeCRC32( $buffer, $crc );
     }
-    printf( "%08x", $crc );
+    my $fileCrc = sprintf("%08x", $crc);
+    printf("$fileCrc");
     print("\t$file") if ( $totalFiles > 1 );
+
+    if ( $file =~ /[^[:xdigit:]]([[:xdigit:]]{8})[^[:xdigit:]]/ ) {
+       my $filenameCrc = $1;
+       if ( lc($filenameCrc) eq lc($fileCrc) ) {
+           print("\tOK")
+       } else {
+           print("\tBAD $fileCrc != $filenameCrc");
+        }
+    }
+
     print("\n");
 }


Reply via email to