[interchange-cvs] interchange - jon modified 3 files

[interchange-core@interchange.redhat.com]

User:      jon
Date:      2001-12-07 00:20:29 GMT
Modified:  lib/Vend/Table Common.pm DBI.pm InMemory.pm
Log:
Undo my brain-dead patch. I have no idea what other simultaneous changes
made this work briefly.

Revision  Changes    Path
2.7       +3 -3      interchange/lib/Vend/Table/Common.pm


rev 2.7, prev_rev 2.6
Index: Common.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/Common.pm,v
retrieving revision 2.6
retrieving revision 2.7
diff -u -u -r2.6 -r2.7
--- Common.pm	2001/12/06 21:14:07	2.6
+++ Common.pm	2001/12/07 00:20:28	2.7
@@ -1,6 +1,6 @@
 # Vend::Table::Common - Common access methods for Interchange databases
 #
-# $Id: Common.pm,v 2.6 2001/12/06 21:14:07 jon Exp $
+# $Id: Common.pm,v 2.7 2001/12/07 00:20:28 jon Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -22,7 +22,7 @@
 # Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
 # MA  02111-1307  USA.
 
-$VERSION = substr(q$Revision: 2.6 $, 10);
+$VERSION = substr(q$Revision: 2.7 $, 10);
 use strict;
 
 package Vend::Table::Common;
@@ -578,7 +578,7 @@
 #::logDebug("each_nokey: $key field=$rfield sup=$sup");
 		if(! defined $key) {
 			undef $restrict;
-			return [];
+			return ();
 		}
 		$key =~ s/^k// or next;
 		if($restrict) {



2.8       +3 -3      interchange/lib/Vend/Table/DBI.pm


rev 2.8, prev_rev 2.7
Index: DBI.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/DBI.pm,v
retrieving revision 2.7
retrieving revision 2.8
diff -u -u -r2.7 -r2.8
--- DBI.pm	2001/12/06 20:43:00	2.7
+++ DBI.pm	2001/12/07 00:20:28	2.8
@@ -1,6 +1,6 @@
 # Vend::Table::DBI - Access a table stored in an DBI/DBD database
 #
-# $Id: DBI.pm,v 2.7 2001/12/06 20:43:00 jon Exp $
+# $Id: DBI.pm,v 2.8 2001/12/07 00:20:28 jon Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -20,7 +20,7 @@
 # MA  02111-1307  USA.
 
 package Vend::Table::DBI;
-$VERSION = substr(q$Revision: 2.7 $, 10);
+$VERSION = substr(q$Revision: 2.8 $, 10);
 
 use strict;
 
@@ -1496,7 +1496,7 @@
 	if(! defined $return->[0]) {
 		pop @$s;
 		delete $s->[$CONFIG]{Export_order};
-		return [];
+		return ();
 	}
     return $return;
 }



2.3       +3 -3      interchange/lib/Vend/Table/InMemory.pm


rev 2.3, prev_rev 2.2
Index: InMemory.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/InMemory.pm,v
retrieving revision 2.2
retrieving revision 2.3
diff -u -u -r2.2 -r2.3
--- InMemory.pm	2001/12/06 21:14:07	2.2
+++ InMemory.pm	2001/12/07 00:20:28	2.3
@@ -1,6 +1,6 @@
 # Vend::Table::InMemory - Store an Interchange table in memory
 #
-# $Id: InMemory.pm,v 2.2 2001/12/06 21:14:07 jon Exp $
+# $Id: InMemory.pm,v 2.3 2001/12/07 00:20:28 jon Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -25,7 +25,7 @@
 package Vend::Table::InMemory;
 use Vend::Table::Common;
 @ISA = qw/Vend::Table::Common/;
-$VERSION = substr(q$Revision: 2.2 $, 10);
+$VERSION = substr(q$Revision: 2.3 $, 10);
 use strict;
 
 # 0: column names
@@ -170,7 +170,7 @@
 
 	for (;;) {
 		$key = each %{$s->[$TIE_HASH]};
-		return [] unless defined $key;
+		return () unless defined $key;
 		return [ $s->row($key) ];
 	}
 }