I just thought I would share this with you although its all too probable
that you have no use for it whatsoever. I keep finding that whilst
working on a projectito with a whole bunch of modules in the directories
created in the manner of h2xs in one place that I am getting pissed off
with either cd'ing up and down between the directories to edit or examine
the files or keep typing in 'cd Some::Module::Name' obviously to no avail,
until now that is :)
for file in `find . -name '*.pm' -print | grep -v blib`
do
dir=`dirname $file`
mod=`echo $dir | sed -e 's/\//::/g' -e 's/\.:://'`
if [ ! -e $mod ]
then
echo $mod $dir
ln -s $dir $mod
fi
done
The obvious question would be why I didnt write it in Perl and the answer
would be that it is more typing in Perl unless someone knows different :)
Of course writing it in Perl would enable one to add a new switch to h2xs
;}
/J\
--
Jonathan Stowe |
http://www.gellyfish.com | I'm with Grep on this one
http://www.tackleway.co.uk |
