[interchange-cvs] interchange - jason modified 2 files

interchange-core@interchange.redhat.com interchange-core@interchange.redhat.com
Mon Jan 14 13:04:01 2002


User:      jason
Date:      2002-01-14 18:03:48 GMT
Modified:  dist/lib/UI/usertag get_gpg_keys.tag add_gpg_key.tag
Log:
Include error message if open("gpg |") fails.

Revision  Changes    Path
2.1       +1 -1      interchange/dist/lib/UI/usertag/get_gpg_keys.tag


rev 2.1, prev_rev 2.0
Index: get_gpg_keys.tag
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/usertag/get_gpg_keys.tag,v
retrieving revision 2.0
retrieving revision 2.1
diff -u -r2.0 -r2.1
--- get_gpg_keys.tag	2001/07/18 02:22:15	2.0
+++ get_gpg_keys.tag	2002/01/14 18:03:48	2.1
@@ -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";
 



2.1       +1 -1      interchange/dist/lib/UI/usertag/add_gpg_key.tag


rev 2.1, prev_rev 2.0
Index: add_gpg_key.tag
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/usertag/add_gpg_key.tag,v
retrieving revision 2.0
retrieving revision 2.1
diff -u -r2.0 -r2.1
--- add_gpg_key.tag	2001/07/18 02:22:15	2.0
+++ add_gpg_key.tag	2002/01/14 18:03:48	2.1
@@ -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;