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