modification de la regexp dans le cas ou il n'ay a pas de parenthèses
authorPierre Habouzit <madcoder@debian.org>
Wed, 11 Dec 2002 17:50:30 +0000 (17:50 +0000)
committerPierre Habouzit <madcoder@debian.org>
Wed, 11 Dec 2002 17:50:30 +0000 (17:50 +0000)
deptrack/deptrack.pl

index 78f5daa..776c812 100755 (executable)
@@ -311,7 +311,7 @@ sub parsefile {
   @phplines = &tagstrip("/*","*/",@phplines);
   @phplines = &commentstrip("\/\/",@phplines);
   @phplines = &commentstrip("#",@phplines);
-  @includes = grep s/.*(require|include)\s*\(\"(.*)\"\).*\n$/$2/, @phplines;
+  @includes = grep s/.*(require|include)\s*\({0,1}\"(.*)\"\){0,1}.*\n$/$2/, @phplines;
   foreach my $include (@includes) {
     &dprint("REQ:$include\n");
     if ($include =~ /$mask_php/) {