[interchange-cvs] interchange - heins modified lib/Vend/Order.pm
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Sun Aug 11 10:19:00 2002
User: heins
Date: 2002-08-11 14:18:41 GMT
Modified: lib/Vend Tag: STABLE_4_8-branch Order.pm
Log:
* Proper status codes from failed PGP runs.
Revision Changes Path
No revision
No revision
2.6.2.11 +3 -3 interchange/lib/Vend/Order.pm
rev 2.6.2.11, prev_rev 2.6.2.10
Index: Order.pm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /anon_cvs/repository/interchange/lib/Vend/Order.pm,v
retrieving revision 2.6.2.10
retrieving revision 2.6.2.11
diff -u -r2.6.2.10 -r2.6.2.11
--- Order.pm 27 Jun 2002 22:38:24 -0000 2.6.2.10
+++ Order.pm 11 Aug 2002 14:18:41 -0000 2.6.2.11
@@ -1,6 +1,6 @@
# Vend::Order - Interchange order routing routines
#
-# $Id: Order.pm,v 2.6.2.10 2002/06/27 22:38:24 jon Exp $
+# $Id: Order.pm,v 2.6.2.11 2002/08/11 14:18:41 mheins Exp $
#
# Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
#
@@ -28,7 +28,7 @@
package Vend::Order;
require Exporter;
=20
-$VERSION =3D substr(q$Revision: 2.6.2.10 $, 10);
+$VERSION =3D substr(q$Revision: 2.6.2.11 $, 10);
=20
@ISA =3D qw(Exporter);
=20
@@ -795,7 +795,7 @@
print PGP $body;
close PGP;
if($?) {
- logError("PGP failed with status %s: %s", $? << 8, $!);
+ logError("PGP failed with status %s: %s", $? >> 8, $!);
return 0;
}
$body =3D readfile("$fpre.out");