summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGravatar Steven Schubiger <stsc@refcnt.org> 2013-09-01 21:49:01 +0200
committerGravatar Steven Schubiger <stsc@refcnt.org> 2013-09-01 21:49:01 +0200
commit16d993ce5bfa2fe1cf6000aa757bd6cca7e7e750 (patch)
treef50ae682844381290dae187e5e5680179de635ea
parent9ca8c76cd6d2db1f6da1f6f6bcd828f7f01a9897 (diff)
downloaddistdns-16d993ce5bfa2fe1cf6000aa757bd6cca7e7e750.tar.gz
distdns-16d993ce5bfa2fe1cf6000aa757bd6cca7e7e750.tar.bz2
Prefix error message with program name
-rwxr-xr-xclient.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/client.pl b/client.pl
index 1d03898..86ff3d9 100755
--- a/client.pl
+++ b/client.pl
@@ -79,14 +79,14 @@ my $save_session = sub
{
my ($session) = @_;
- open(my $fh, '>', $session_file) or die "Cannot open client-side $session_file for writing: $!\n";
+ open(my $fh, '>', $session_file) or die "$0: Cannot open client-side $session_file for writing: $!\n";
print {$fh} "$session\n";
close($fh);
};
my $get_session = sub
{
- open(my $fh, '<', $session_file) or die "Cannot open client-side $session_file for reading: $!\nPerhaps try running --init\n";
+ open(my $fh, '<', $session_file) or die "$0: Cannot open client-side $session_file for reading: $!\nPerhaps try running --init\n";
my $session = do { local $/; <$fh> };
chomp $session;
close($fh);