X-Git-Url: http://git.refcnt.org/?p=distdns.git;a=blobdiff_plain;f=client.pl;fp=client.pl;h=86ff3d94ab808925b93822e0cd18b06be820f2bb;hp=1d03898ac44b17cbe201696c8364aa04cf23f8a2;hb=16d993ce5bfa2fe1cf6000aa757bd6cca7e7e750;hpb=9ca8c76cd6d2db1f6da1f6f6bcd828f7f01a9897

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);