[svn:parrot] r46338 - trunk/t/distro

[mikehh at svn.parrot.org]

Author: mikehh
Date: Thu May  6 12:05:38 2010
New Revision: 46338
URL: https://trac.parrot.org/parrot/changeset/46338

Log:
fix percritic failures - hard tabs and two argument open

Modified:
   trunk/t/distro/manifest_generated.t

Modified: trunk/t/distro/manifest_generated.t
==============================================================================
--- trunk/t/distro/manifest_generated.t	Thu May  6 12:03:51 2010	(r46337)
+++ trunk/t/distro/manifest_generated.t	Thu May  6 12:05:38 2010	(r46338)
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2001-2006, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
 # $Id$
 
 use strict;
@@ -27,7 +27,7 @@
 ok( -e 'MANIFEST.generated', 'MANIFEST.generated exists' );
 
 # slurp MANIFEST.generated, ignoring comment lines
-open my $fh, 'MANIFEST.generated'
+open my $fh, '<', 'MANIFEST.generated'
     or die "open MANIFEST.generated: $!";
 my @contents = grep {!/^#/} map {chomp; $_} <$fh>;
 close $fh;
@@ -37,21 +37,21 @@
 # parse records
 my @records;
 is_deeply(  [grep {
-		my $match = m/^ (\S+) \s+ (\[ \w* \] \w*) $/x;
-		push @records, [$1, $2] if $match;
-		not $match } @contents],
-	    [],
-	    'MANIFEST.generated contains no irregular records' );
+        my $match = m/^ (\S+) \s+ (\[ \w* \] \w*) $/x;
+        push @records, [$1, $2] if $match;
+        not $match } @contents],
+        [],
+        'MANIFEST.generated contains no irregular records' );
 
 # check for appropriate contents
 my %contained_files = map {$$_[0] => 1} @records;
 is_deeply(  [],
-	    [grep {not exists $contained_files{$_}} glob('include/pmc/*.h')],
-	    'MANIFEST.generated lists all core PMC headers' );
+        [grep {not exists $contained_files{$_}} glob('include/pmc/*.h')],
+        'MANIFEST.generated lists all core PMC headers' );
 
 is_deeply(  [],
-	    [grep {not exists $contained_files{$_}} glob('src/pmc/*.dump')],
-	    'MANIFEST.generated lists all core PMC dump files' )
+        [grep {not exists $contained_files{$_}} glob('src/pmc/*.dump')],
+        'MANIFEST.generated lists all core PMC dump files' )
 
 # Local Variables:
 #   mode: cperl