[svn:parrot] r17456 - in trunk: . t/codingstd

[coke]

Author: coke
Date: Mon Mar 12 20:14:36 2007
New Revision: 17456

Modified:
   trunk/   (props changed)
   trunk/t/codingstd/perlcritic.t

Log:
[t] - fixup version checking for Perl::Critic


Modified: trunk/t/codingstd/perlcritic.t
==============================================================================
--- trunk/t/codingstd/perlcritic.t      (original)
+++ trunk/t/codingstd/perlcritic.t      Mon Mar 12 20:14:36 2007
@@ -14,9 +14,13 @@
 use Parrot::Distribution;
 
 BEGIN {
-    eval { require Perl::Critic 1.01; };
+    eval { require Perl::Critic };
     if ($@) {
-        plan skip_all => 'Perl::Critic not installed or invalid version';
+        plan skip_all => 'Perl::Critic not installed';
+    }
+    my $required_version = 1.01;
+    if ($Perl::Critic::VERSION < $required_version) {
+        plan skip_all => "Perl::Critic v$required_version required, 
v$Perl::Critic::VERSION found";
     }
 }