[Bps-public-commit] r15726 - in Prophet/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Wed Sep  3 16:48:18 2008
New Revision: 15726

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

Log:
 r70989 at onn:  sartak | 2008-09-03 16:48:09 -0400
 Add "require Foo" to our dependency scanner


Modified: Prophet/trunk/t/01-dependencies.t
==============================================================================
--- Prophet/trunk/t/01-dependencies.t	(original)
+++ Prophet/trunk/t/01-dependencies.t	Wed Sep  3 16:48:18 2008
@@ -37,7 +37,7 @@
     $data =~ s/^=head.+?(^=cut|\Z)//gms;
 
     # look for use and use base statements
-    $used{$1}{$File::Find::name}++ while $data =~ /^\s*use\s+([\w:]+)/gm;
+    $used{$1}{$File::Find::name}++ while $data =~ /^\s*(?:use|require)\s+([\w:]+)/gm;
     while ( $data =~ m|^\s*use base qw.([\w\s:]+)|gm ) {
         $used{$_}{$File::Find::name}++ for split ' ', $1;
     }