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);
16 $pear = "/usr/share/pear";
25 next unless ($f =~ /\.php$/);
26 open(F, "< $f") or die;
30 $file_dir =~ s|.*$pear/||;
31 $file_dir =~ s|/[^/]*$||;
38 next if (/^\s*(#|\/\/|\*|\/\*)/);
40 while (/(\W|^)(require|include)(_once)?
41 \s* \(? \s* ("([^"]*)"|'([^']*)')
51 next if ($x =~ m|^\./| or $x =~ /\$/);
55 next unless (defined $file_dir);
57 while (/(\W|^)(require|include)(_once)?
58 \s* \(? \s* dirname \s* \( \s* __FILE__ \s* \) \s* \. \s*
78 f: for $f (keys %req) {
79 for $g (@files) { next f if ($g =~ /\Q$f\E$/); }