Updated announceEmail.pl

[clearscm.git] / bin / cleantmp.pl

diff --git a/bin/cleantmp.pl b/bin/cleantmp.pl
index 4b42cbe..12898a9 100755 (executable)
--- a/bin/cleantmp.pl
+++ b/bin/cleantmp.pl
@@ -77,6 +77,8 @@ use Utils;
 my ($script) = ($FindBin::Script =~ /^(.*)\.pl/);
 my $log;
 
+local $0 = $script;
+
 my %opts = (
   usage   => sub { pod2usage },
   help    => sub { pod2usage(-verbose => 2)},