Login
Fix ProhibitPunctuationVars in tests.
authorElliot Shank <perl@galumph.com>
Thu, 10 Jul 2008 04:49:58 +0000 (04:49 +0000)
committerElliot Shank <perl@galumph.com>
Thu, 10 Jul 2008 04:49:58 +0000 (04:49 +0000)
t/06_violation.t
t/92_memory_leaks.t
t/98_pod_syntax.t
t/99_pod_coverage.t
xt/author/80_policysummary.t
xt/author/93_version.t
xt/author/95_kwalitee.t

index 9815dad..b912de9 100644 (file)
@@ -102,11 +102,6 @@ like(ViolationTest->get_violation()->diagnostics(),
 # Violation sorting
 
 SKIP: {
-
-    #For reasons I don't yet understand these tests fail
-    #on my perl at work.  So for now, I just skip them.
-    skip( 'Broken on perls <= 5.6.1', 2 ) if $] <= 5.006001;
-
     $code = <<'END_PERL';
 my $foo = 1; my $bar = 2;
 my $baz = 3;
index e909816..32dbebb 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;
@@ -31,7 +32,8 @@ our $VERSION = '1.088';
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 eval 'use Test::Memory::Cycle'; ## no critic
-plan( skip_all => 'Test::Memory::Cycle requried to test memory leaks') if $@;
+plan skip_all => 'Test::Memory::Cycle requried to test memory leaks'
+    if $EVAL_ERROR;
 
 #-----------------------------------------------------------------------------
 {
index ef40a8a..d948f5e 100644 (file)
@@ -11,6 +11,8 @@ use 5.006001;
 use strict;
 use warnings;
 
+use English qw< -no_match_vars >;
+
 use Perl::Critic::TestUtils qw{ starting_points_including_examples };
 
 use Test::More;
@@ -22,7 +24,7 @@ our $VERSION = '1.088';
 #-----------------------------------------------------------------------------
 
 eval 'use Test::Pod 1.00';  ## no critic
-plan skip_all => 'Test::Pod 1.00 required for testing POD' if $@;
+plan skip_all => 'Test::Pod 1.00 required for testing POD' if $EVAL_ERROR;
 all_pod_files_ok( all_pod_files( starting_points_including_examples() ) );
 
 # Local Variables:
index f6aded1..da4acd0 100644 (file)
@@ -11,6 +11,8 @@ use 5.006001;
 use strict;
 use warnings;
 
+use English qw< -no_match_vars >;
+
 use Test::More;
 
 #-----------------------------------------------------------------------------
@@ -20,7 +22,8 @@ our $VERSION = '1.088';
 #-----------------------------------------------------------------------------
 
 eval 'use Test::Pod::Coverage 1.04'; ## no critic
-plan skip_all => 'Test::Pod::Coverage 1.00 requried to test POD' if $@;
+plan skip_all => 'Test::Pod::Coverage 1.00 requried to test POD'
+    if $EVAL_ERROR;
 
 {
     # HACK: Perl::Critic::Violation uses Pod::Parser to extract the
index 8e6875e..7d66f91 100644 (file)
@@ -31,7 +31,7 @@ my $summary_file =
     File::Spec->catfile( qw< lib Perl Critic PolicySummary.pod > );
 if (open my ($fh), '<', $summary_file) {
 
-    my $content = do {local $/=undef; <$fh> };
+    my $content = do {local $INPUT_RECORD_SEPARATOR=undef; <$fh> };
     close $fh or confess "Couldn't close $summary_file: $OS_ERROR";
 
     my @policy_names = bundled_policy_names();
index 4863d1a..13ce27a 100644 (file)
@@ -34,7 +34,7 @@ if (! defined $last_version) {
 sub check_version {
     return if (! m{blib/script/}xms && ! m{\.pm \z}xms);
 
-    local $/ = undef;
+    local $INPUT_RECORD_SEPARATOR = undef;
     my $fh;
     open $fh, '<', $_ or confess "$OS_ERROR";
     my $content = <$fh>;
index 3e88ae1..661fa3f 100644 (file)
@@ -10,6 +10,8 @@
 use strict;
 use warnings;
 
+use English qw< -no_match_vars >;
+
 use Test::More;
 
 #-----------------------------------------------------------------------------
@@ -21,8 +23,9 @@ our $VERSION = '1.088';
 eval {
    require Test::Kwalitee;
    Test::Kwalitee->import( tests => [ qw{ -no_symlinks } ] );
-};
-plan( skip_all => 'Test::Kwalitee not installed; skipping' ) if $@;
+   1;
+}
+    or plan skip_all => 'Test::Kwalitee not installed; skipping';
 
 # Local Variables:
 #   mode: cperl