[interchange-cvs] interchange - heins modified lib/Vend/Order.pm

[interchange-core@icdevgroup.org]

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");