[interchange-cvs] interchange - racke modified perl/Interchange.pm

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Sat Jul 13 12:06:00 2002


User:      racke
Date:      2002-07-13 16:05:12 GMT
Modified:  perl     Interchange.pm
Log:
compiles without an error now

Revision  Changes    Path
2.2       +7 -6      interchange/perl/Interchange.pm


rev 2.2, prev_rev 2.1
Index: Interchange.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/perl/Interchange.pm,v
retrieving revision 2.1
retrieving revision 2.2
diff -u -r2.1 -r2.2
--- Interchange.pm	17 Jun 2002 22:24:12 -0000	2.1
+++ Interchange.pm	13 Jul 2002 16:05:12 -0000	2.2
@@ -1,6 +1,6 @@
 # Interchange.pm - Interchange access for Perl scripts
 #
-# $Id: Interchange.pm,v 2.1 2002/06/17 22:24:12 jon Exp $
+# $Id: Interchange.pm,v 2.2 2002/07/13 16:05:12 racke Exp $
 #=20
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -30,7 +30,7 @@
 use strict;
 use Fcntl;
 use vars qw($VERSION @EXPORT @EXPORT_OK);
-$VERSION =3D substr(q$Revision: 2.1 $, 10);
+$VERSION =3D substr(q$Revision: 2.2 $, 10);
=20
 BEGIN {
 	require 5.005;
@@ -180,7 +180,7 @@
 	my ($class, @options) =3D=20
 	my ($k, $v);
 	my $self =3D {};
-	while (defined ($k =3D shift(@options)) {
+	while (defined ($k =3D shift(@options))) {
 		($self->{$k} =3D shift(@options), next)
 			unless defined $Special{lc $k};
 		my $arg =3D shift @options;
@@ -188,10 +188,11 @@
 	}
=20
 	if(! $self->{Cfg}{CatRoot}) {
-		for( $ENV{INTERCHANGE_CATDIR},=20
+		for( $ENV{INTERCHANGE_CATDIR}, ) {
 		if(-f $ENV{INTERCHANGE_CATDIR}) {
 		}
 	}
+	}
 	unless (defined $self->{session}) {
 	}
 	bless $self, $class;
@@ -347,7 +348,7 @@
=20=09
 	$opt->{cart} =3D ($self->{_config}{current_cart} ||=3D 'main')
 		unless $opt->{cart};
-
+=09
 	my ($attr, $sub);
 	if($opt->{qualifier}) {
 		$attr =3D $opt->{qualifier};
@@ -365,7 +366,7 @@
 	}
=20
     my $total =3D 0;
-    foreach my $item (@$cart) {
+    foreach my $item (@{$opt->{cart}}) {
 		next if $attr and ! $sub->($item->{$attr});
 		$total +=3D $item->{'quantity'};
     }