Fix RT ticket #75349

https://rt.cpan.org/Ticket/Display.html?id=75349
This commit is contained in:
Adam Spiers 2012-07-09 01:05:27 +01:00
parent db7819dbf2
commit 67936bd7de

View file

@ -416,7 +416,7 @@ use Getopt::Long;
@USE_LIB_PMDIR@ @USE_LIB_PMDIR@
use Stow; use Stow;
use Stow::Util qw(parent); use Stow::Util qw(parent error);
my $ProgramName = $0; my $ProgramName = $0;
$ProgramName =~ s{.*/}{}; $ProgramName =~ s{.*/}{};