[svn:parrot] r12410 - trunk/t/codingstd

[particle]

Author: particle
Date: Mon Apr 24 11:55:08 2006
New Revision: 12410

Modified:
   trunk/t/codingstd/cppcomments.t

Log:
[t] relax perl min version dependency
thanks to andy dougherty for the head's up.

Modified: trunk/t/codingstd/cppcomments.t
==============================================================================
--- trunk/t/codingstd/cppcomments.t     (original)
+++ trunk/t/codingstd/cppcomments.t     Mon Apr 24 11:55:08 2006
@@ -4,7 +4,6 @@
 
 use strict;
 use warnings;
-use 5.008;
 
 use lib qw( . lib ../lib ../../lib );
 use Test::More tests => 1;
@@ -55,13 +54,13 @@
 
 foreach my $glob ( @globs ) {
     foreach my $file ( glob $glob ) {
-        
+
         open FILE, "<$file" or die "Can not open '$file' for reading!\n";
         foreach my $line ( <FILE> ) {
             next unless $line =~ m{//};
             next if $line =~ m{://};     # skip ftp:// http:// etc
             next if $line =~ m{"//};     # skip printf("//= ")
-            
+
             push @comments, "$file: $line"
         }
         close FILE;