Login
Fix RequireCheckedClose in tests.
authorElliot Shank <perl@galumph.com>
Wed, 9 Jul 2008 05:06:12 +0000 (05:06 +0000)
committerElliot Shank <perl@galumph.com>
Wed, 9 Jul 2008 05:06:12 +0000 (05:06 +0000)
t/05_utils.t
xt/author/80_policysummary.t
xt/author/93_version.t

index 59dc34f..5e2137b 100644 (file)
@@ -11,6 +11,7 @@ use 5.006001;
 use strict;
 use warnings;
 
+use English qw< -no_match_vars >;
 use Carp qw< confess >;
 
 use PPI::Document;
@@ -289,7 +290,10 @@ sub test_is_perl_and_shebang_line {
 
     for my $shebang (@perl_shebangs) {
         my ($fh, $filename) = tempfile() or confess 'Could not open tempfile';
-        print {$fh} "$shebang\n"; close $fh; # Must close to flush buffer
+        print {$fh} "$shebang\n";
+        # Must close to flush buffer
+        close $fh or confess "Couldn't close $filename: $OS_ERROR";
+
         ok( Perl::Critic::Utils::_is_perl($filename), qq{Is perl: '$shebang'});
 
         my $document = PPI::Document->new(\$shebang);
@@ -308,7 +312,10 @@ sub test_is_perl_and_shebang_line {
 
     for my $shebang (@not_perl_shebangs) {
         my ($fh, $filename) = tempfile or confess 'Could not open tempfile';
-        print {$fh} "$shebang\n"; close $fh; # Must close to flush buffer
+        print {$fh} "$shebang\n";
+        # Must close to flush buffer
+        close $fh or confess "Couldn't close $filename: $OS_ERROR";
+
         ok( ! Perl::Critic::Utils::_is_perl($filename), qq{Is not perl: '$shebang'});
 
         my $document = PPI::Document->new(\$shebang);
index 61f88ba..8e6875e 100644 (file)
@@ -11,6 +11,7 @@ use strict;
 use warnings;
 
 use English qw< -no_match_vars >;
+use Carp qw< confess >;
 
 use File::Spec;
 use List::MoreUtils qw(any);
@@ -31,7 +32,7 @@ my $summary_file =
 if (open my ($fh), '<', $summary_file) {
 
     my $content = do {local $/=undef; <$fh> };
-    close $fh;
+    close $fh or confess "Couldn't close $summary_file: $OS_ERROR";
 
     my @policy_names = bundled_policy_names();
     my @summaries    = $content =~ m/^=head2 [ ]+ L<([\w:]+)>/gxms;
index 6cb1450..1d4f760 100644 (file)
@@ -3,6 +3,7 @@
 use strict;
 use warnings;
 
+use English qw< -no_match_vars >;
 use Carp qw< confess >;
 
 use File::Find;
@@ -28,9 +29,9 @@ sub check_version {
 
     local $/ = undef;
     my $fh;
-    open $fh, '<', $_ or confess $!;
+    open $fh, '<', $_ or confess "$OS_ERROR";
     my $content = <$fh>;
-    close $fh;
+    close $fh or confess "$OS_ERROR";
 
     # Skip POD
     $content =~ s/^__END__.*//xms;