2 #####################################################################
4 # Check system dependences between php-pear modules #
6 # Pawe³ Go³aszewski <blues@ds.pg.gda.pl> #
7 # Micha³ Moskal <malekith@pld-linux.org> #
8 # ------------------------------------------------------------------#
10 # - extension_loaded - dependencies. #
11 # - some clean-up... #
12 #####################################################################
14 die "You have to specify input files" if (@ARGV < 1);
23 next unless ($f =~ /\.php$/);
24 open(F, "< $f") or die;
28 next if (/^\s*(#|\/\/|\*|\/\*)/);
30 while (/(\W|^)(require|include)(_once)?
31 \s* \(? \s* ("([^"]*)"|'([^']*)')
41 next if ($x =~ m|^\./| or $x =~ /\$/);
47 f: for $f (keys %req) {
48 for $g (@files) { next f if ($g =~ /\Q$f\E$/); }