[interchange-cvs] interchange - jon modified 2 files

[interchange-core@interchange.redhat.com]

User:      jon
Date:      2002-02-07 02:40:23 GMT
Modified:  code/UI_Tag add_gpg_key.coretag get_gpg_keys.coretag
Log:
Bring back GPG failure error enhancement.

Revision  Changes    Path
1.2       +1 -1      interchange/code/UI_Tag/add_gpg_key.coretag


rev 1.2, prev_rev 1.1
Index: add_gpg_key.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/add_gpg_key.coretag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- add_gpg_key.coretag	29 Jan 2002 05:52:40 -0000	1.1
+++ add_gpg_key.coretag	7 Feb 2002 02:40:23 -0000	1.2
@@ -14,7 +14,7 @@
 	$keytext =~ s/^\s+//;
 	$keytext =~ s/\s+$//;
 	open(GPGIMP, "| $gpgexe $flags") 
-		or die "Can't fork!";
+		or die "Can't fork: $!";
 	print GPGIMP $keytext;
 	close GPGIMP;
 



1.2       +1 -1      interchange/code/UI_Tag/get_gpg_keys.coretag


rev 1.2, prev_rev 1.1
Index: get_gpg_keys.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/get_gpg_keys.coretag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- get_gpg_keys.coretag	29 Jan 2002 05:52:40 -0000	1.1
+++ get_gpg_keys.coretag	7 Feb 2002 02:40:23 -0000	1.2
@@ -13,7 +13,7 @@
 #::logDebug("gpg_get_keys flags=$flags");
 	
 	open(GPGIMP, "$gpgexe $flags |") 
-		or die "Can't fork!";
+		or die "Can't fork: $!";
 
 	my $fmt = $opt->{long} ?  "%s=%s (date %s, id %s)" : "%s=%s";