Use 'perl-dist' instead of $0. The path in $0 is too spammy...

1 files changed, 5 insertions, 5 deletions

diff --git a/bin/macros/perl-dist b/bin/macros/perl-dist
index c2a5b9a..a5125b4 100755
--- a/bin/macros/perl-dist
+++ b/bin/macros/perl-dist
@@ -324,7 +324,7 @@ use Digest::SHA qw();
 
 sub main
 {
-    my $distpath = shift or die "Usage: $0 [path to cpan dist file]\n";
+    my $distpath = shift or die "Usage: perl-dist [path to cpan dist file]\n";
     my $dir  = dirname($distpath);
     my $file = basename($distpath);
     my $info = distinfo($file);
@@ -396,15 +396,15 @@ sub extractdist
     my ($file) = @_;
 
     system "bsdtar -xf $file";
-    die "$0: bsdtar failed to extract $file\n" unless $? == 0;
+    die "perl-dist: bsdtar failed to extract $file\n" unless $? == 0;
 
     opendir my $srcdir, '.' or die "opendir: $!";
     my @dirs = grep { -d $_ && !/\A[.]/ } readdir $srcdir;
     closedir $srcdir;
 
-    die "$0: many dirs (@dirs) inside the tarball $file\n"
+    die "perl-dist: many dirs (@dirs) inside the tarball $file\n"
         if @dirs > 1;
-    die "$0: no dirs found in tarball $file\n" if @dirs == 0;
+    die "perl-dist: no dirs found in tarball $file\n" if @dirs == 0;
     return $dirs[0];
 }
 
@@ -413,7 +413,7 @@ sub printjam
     my ($pbvars) = @_;
     while (my ($name, $val) = each %$pbvars) {
         if (! defined $val || $val eq q{}) {
-            warn "$0: warning: $name is undefined\n";
+            warn "perl-dist: warning: $name is undefined\n";
             $val = q{};
         }
         print "+ $name $_\n" for (ref $val ? @$val : $val);