[Jifty-commit] r1849 - in jifty/trunk: t

[jifty-commit at lists.jifty.org]

Author: jesse
Date: Wed Aug 23 19:32:15 2006
New Revision: 1849

Modified:
   jifty/trunk/   (props changed)
   jifty/trunk/t/01-dependencies.t

Log:
 r21865 at pinglin:  jesse | 2006-08-23 19:31:59 -0400
 * Small stylistic cleanup to t/01-dependencies


Modified: jifty/trunk/t/01-dependencies.t
==============================================================================
--- jifty/trunk/t/01-dependencies.t	(original)
+++ jifty/trunk/t/01-dependencies.t	Wed Aug 23 19:32:15 2006
@@ -46,10 +46,10 @@
     ok(open(MAKEFILE,"Makefile.PL"), "Opened Makefile");
     my $data = <MAKEFILE>;
     close(FILE);
-    while ($data =~ /^\s*?(requires|recommends)\('([\w:]+)'(?:\s*=>\s*['"]?([\d\.]+)['"]?)?.*?(?:#(.*))?$/gm) {
-        $required{$2} = $3;
-        if (defined $4 and length $4) {
-            $required{$_} = undef for split ' ', $4;
+    while ($data =~ /^\s*?(?:requires|recommends)\('([\w:]+)'(?:\s*=>\s*['"]?([\d\.]+)['"]?)?.*?(?:#(.*))?$/gm) {
+        $required{$1} = $2;
+        if (defined $3 and length $3) {
+            $required{$_} = undef for split ' ', $3;
         }
     }
 }