X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-prune-applications;h=d2b6efe0be0c26b95fde3ae501ffc4290f2e4470;hp=b459da55e17c79a06a89de0345c44fee2b47e3a0;hb=1f1190b8fb6d06852dbd16c6a288f9acd9cc83dd;hpb=16a91fd700e3c3e5ec051d2c3692275f9389aab4 diff --git a/FS/bin/freeside-prune-applications b/FS/bin/freeside-prune-applications index b459da55e..d2b6efe0b 100755 --- a/FS/bin/freeside-prune-applications +++ b/FS/bin/freeside-prune-applications @@ -5,7 +5,7 @@ use vars qw($opt_d $opt_q $opt_v); # $opt_n instead of $opt_d? use vars qw($DEBUG $DRY_RUN); use Getopt::Std; use FS::UID qw(adminsuidsetup checkeuid); -use FS::Misc qw(prune_applications); +use FS::Misc::prune qw(prune_applications); die "Not running uid freeside!" unless checkeuid();