[Bps-public-commit] r15348 - in Shipwright/trunk: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Aug 21 21:59:28 2008
New Revision: 15348

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Test.pm

Log:
 r15935 at sunnavys-mb:  sunnavy | 2008-08-22 09:19:45 +0800
 a bit loose regex


Modified: Shipwright/trunk/lib/Shipwright/Test.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Test.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Test.pm	Thu Aug 21 21:59:28 2008
@@ -30,7 +30,7 @@
 sub has_svk {
     if ( can_run('svk') && can_run('svnadmin') ) {
         my $out = Shipwright::Util->run(['svk', '--version']);
-        if ( $out =~ /version v(\d)\./ ) {
+        if ( $out =~ /version v(\d)\./i ) {
             return 1 if $1 >= 2;
         }
     }
@@ -47,7 +47,7 @@
 sub has_svn {
     if ( can_run('svn') && can_run('svnadmin') ) {
         my $out = Shipwright::Util->run(['svn', '--version']);
-        if ( $out =~ /version 1\.(\d)/ ) {
+        if ( $out =~ /version 1\.(\d)/i ) {
             return 1 if $1 >= 4;
         }
     }