[Pgp-tools-commit] r91 - trunk/caff

[Peter Palfrader]

Author: weasel
Date: 2005-06-28 18:11:13 +0000 (Tue, 28 Jun 2005)
New Revision: 91

Modified:
   trunk/caff/caff
Log:
Print error reason when we die

Modified: trunk/caff/caff
===================================================================
--- trunk/caff/caff	2005-06-28 14:57:30 UTC (rev 90)
+++ trunk/caff/caff	2005-06-28 18:11:13 UTC (rev 91)
@@ -814,7 +814,7 @@
 			-d $keydir  || mkpath($keydir , 0, 0700) or die ("Cannot create $keydir $!\n");
 
 			my $keyfile = "$keydir/$longkeyid.key.$uid_number.".sanitize_uid($this_uid_text).".asc";
-			open (KEY, ">$keyfile") or die ("Cannot open $keyfile\n");
+			open (KEY, ">$keyfile") or die ("Cannot open $keyfile: $!\n");
 			print KEY $asciikey;
 			close KEY;
 
@@ -850,7 +850,7 @@
 
 					my $keydir = "$KEYSBASE/$DATE_STRING";
 					my $mailfile = "$keydir/$longkeyid.mail.".$uid->{'serial'}.".".sanitize_uid($uid->{'text'});
-					open (KEY, ">$mailfile") or die ("Cannot open $mailfile\n");
+					open (KEY, ">$mailfile") or die ("Cannot open $mailfile: $!\n");
 					print KEY $mail;
 					close KEY;
 				};