I have also written another perl app that I will release when I cbf (media playing related). The app also needs some fine tuning yet.
Ubuntu dist upgrade to intrepid fucking ruined my pc. By ruined I mean, the yanking of binary legacy nvidia drivers. My main pc has been faithfully acting in its second roll as media pc. I run a matrox g550 for the desktop and my trusty old ASUS Nvidia TNT2 Ulta (reow). Needless to say, I was pissed - I had encountered the issue previously and managed to resolve it with a custom kernel compile. Not this time though, spent far to long trying everything else but a reinstall.
Having spent far to long avoiding a reinstall, i did it. Then noticed today my install.sh for namefix.pl was not correct. After fixing the stupid stuff I noticed that force install for cpan was no longer working (did it ever work ?). So I googled around, and found this great thread below with a guru giving out his fix.
http://www.perlmonks.org/?node_id=606768
The updated install.sh
echo installing modules
sudo perl -MCPAN -e "CPAN::Shell->force(qw(install Tk));"
sudo perl -MCPAN -e "CPAN::Shell->force(qw(install Tk::JComboBox));"
sudo perl -MCPAN -e "CPAN::Shell->force(qw(install Tk::DynaTabFrame));"
sudo perl -MCPAN -e "CPAN::Shell->force(qw(install Tk::JComboBox));"
echo install script
sudo chmod a+x ./namefix.pl
sudo rm /usr/bin/namefix.pl
sudo ln ./namefix.pl /usr/bin/namefix.pl
This has been corrected in my private wip version and will be included in the next release.