Fix a bug with customized.t when CUSTOMIZED is empty arrayref blead
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 24 Oct 2014 12:15:19 +0000 (13:15 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 24 Oct 2014 12:15:19 +0000 (13:15 +0100)
t/porting/customized.t

index a769c58..2b1a0d2 100644 (file)
@@ -85,6 +85,7 @@ else {
 
 foreach my $module ( sort keys %Modules ) {
   next unless my $files = $Modules{ $module }{CUSTOMIZED};
+  next unless @{ $files };
   my @perl_files = my_get_module_files( $module );
   foreach my $file ( @perl_files ) {
     my $digest = Digest->new( $digest_type );