2 #####################################################################
4 # Small script to generate provides for php-pear/php-pecl #
6 # Adam Go³êbiowski <adamg@pld-linux.org> #
8 # Somehow based on previous work by: #
9 # Pawe³ Go³aszewski <blues@pld-linux.org> #
10 # Micha³ Moskal <malekith@pld-linux.org> #
11 #####################################################################
13 # Contest: shrink this one to oneliner
14 # Bonus : and fit in 80 columns ;)
16 /package.xml/ and open(F, $_) foreach (@ARGV ? @ARGV : <> );
17 /^\s+\<name\>([a-zA-Z0-9\_]+)\<\/name\>$/ and print "php-pear-$1" while (<F>);