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