From ee034d77d582c6cf88f0d40c8c324aeef77c938e Mon Sep 17 00:00:00 2001 From: weasel Date: Tue, 28 Jun 2005 18:11:13 +0000 Subject: [PATCH] Print error reason when we die git-svn-id: svn://svn.debian.org/pgp-tools/trunk@91 b513b33f-fedd-0310-b452-c3deb5f4c849 --- caff/caff | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/caff/caff b/caff/caff index ec6b6f4..009b0b5 100755 --- a/caff/caff +++ b/caff/caff @@ -814,7 +814,7 @@ for my $keyid (@keyids_ok) { -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 @@ for my $keyid (@keyids_ok) { 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; }; -- 2.39.5