| Lines 19-37
          use Modern::Perl;
      
      
        Link Here | 
        
          | 19 | use Test::More; | 19 | use Test::More; | 
        
          | 20 | use File::Find; | 20 | use File::Find; | 
        
          | 21 |  | 21 |  | 
          
            
              | 22 | my $dir = ('installer/data/mysql/atomicupdate'); | 22 | SKIP: { | 
            
              | 23 | my @files; | 23 |     skip "Building custom packages", 1, if $ENV{'CUSTOM_PACKAGE'}; | 
        
          | 24 |  | 24 |  | 
          
            
              | 25 | find( \&wanted, $dir ); | 25 |     my $dir = ('installer/data/mysql/atomicupdate'); | 
            
              |  |  | 26 |     my @files; | 
        
          | 26 |  | 27 |  | 
          
            
              | 27 | sub wanted { | 28 |     find( \&wanted, $dir ); | 
            
              | 28 |     push @files, $_; |  |  | 
            
              | 29 |     return; | 
            
              | 30 | } | 
        
          | 31 |  | 29 |  | 
          
            
              | 32 | foreach my $f (@files) { | 30 |     sub wanted { | 
            
              | 33 |     next if $f eq 'skeleton.pl'; | 31 |         push @files, $_; | 
            
              | 34 |     unlike( $f, qr/.*pl$/, "check for unhandled atomic updates: $f" ); | 32 |         return; | 
            
              | 35 | } | 33 |     } | 
            
              |  |  | 34 |  | 
            
              | 35 |     foreach my $f (@files) { | 
            
              | 36 |         next if $f eq 'skeleton.pl'; | 
            
              | 37 |         unlike( $f, qr/.*pl$/, "check for unhandled atomic updates: $f" ); | 
            
              | 38 |     } | 
            
              | 39 | }; | 
        
          | 36 |  | 40 |  | 
        
          | 37 | done_testing(); | 41 | done_testing(); | 
            
              | 38 | -  |  |  |