From add7c67dae78d573e9a3f51c73e915f217949ba1 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 25 Mar 2011 00:53:43 -0400
Subject: [PATCH] improve program name in messages

---
 Pristine/Tar.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/Pristine/Tar.pm b/Pristine/Tar.pm
index 7fa4498..096020b 100644
--- a/Pristine/Tar.pm
+++ b/Pristine/Tar.pm
@@ -18,12 +18,18 @@ our $verbose=0;
 our $debug=0;
 our $keep=0;
 
+sub progname {
+	my $name=$0;
+	$name=~s!^.*/(.+)$!$1!;
+	return $name
+}
+
 sub error {
-	die "$0: @_\n";
+	die progname().": @_\n";
 }
 
 sub message {
-	print STDERR "$0: @_\n";
+	print STDERR progname().": @_\n";
 }
 
 sub debug {
-- 
2.7.4