[Jifty-commit] r1849 - in jifty/trunk: t
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Wed Aug 23 19:32:16 EDT 2006
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;
}
}
}
More information about the Jifty-commit
mailing list