--- nfo/perl/scripts/shortcuts/fetchdoc.pl 2003/01/28 11:03:30 1.1 +++ nfo/perl/scripts/shortcuts/fetchdoc.pl 2004/11/07 03:08:05 1.2 @@ -4,9 +4,9 @@ use warnings; use lib qw( /data/libs/nfo/perl/libs ); -use org::netfrag::shortcuts qw( run_cmd ); -use Data::Storage::Handler::File qw( s2f ); -use Data::Transform::String qw( getLastPart ); +use shortcuts qw( run_cmd ); +use Data::Storage::Handler::File::Basic qw( s2f ); +use Data::Mungle::Transform::String qw( getLastPart ); my $config = { baseurl => "http://cvs.netfrag.org/" }; my $wget = "/usr/bin/wget --quiet";