From: Pierre Habouzit <madcoder@debian.org>
Date: Wed, 11 Dec 2002 17:50:30 +0000 (+0000)
Subject: modification de la regexp dans le cas ou il n'ay a pas de parenthèses
X-Git-Tag: start~22
X-Git-Url: http://git.polytechnique.org/?a=commitdiff_plain;h=0eae16eca76a6a960a0bac21335d4708cb36878e;p=old-projects.git

modification de la regexp dans le cas ou il n'ay a pas de parenthèses
---

diff --git a/deptrack/deptrack.pl b/deptrack/deptrack.pl
index 78f5daa..776c812 100755
--- a/deptrack/deptrack.pl
+++ b/deptrack/deptrack.pl
@@ -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/) {