[interchange-cvs] interchange - racke modified lib/Vend/Table/Common.pm
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Thu Feb 13 11:13:01 2003
User: racke
Date: 2003-02-13 16:12:18 GMT
Modified: lib/Vend/Table Common.pm
Log:
replaced unstuff method by an alias to Vend::Util::unhexify
Revision Changes Path
2.25 +3 -7 interchange/lib/Vend/Table/Common.pm
rev 2.25, prev_rev 2.24
Index: Common.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Table/Common.pm,v
retrieving revision 2.24
retrieving revision 2.25
diff -u -r2.24 -r2.25
--- Common.pm 12 Jan 2003 18:28:45 -0000 2.24
+++ Common.pm 13 Feb 2003 16:12:18 -0000 2.25
@@ -1,6 +1,6 @@
# Vend::Table::Common - Common access methods for Interchange databases
#
-# $Id: Common.pm,v 2.24 2003/01/12 18:28:45 mheins Exp $
+# $Id: Common.pm,v 2.25 2003/02/13 16:12:18 racke Exp $
#
# Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
# Copyright (C) 2003 ICDEVGROUP <interchange@icdevgroup.org>
@@ -23,7 +23,7 @@
# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
# MA 02111-1307 USA.
-$VERSION = substr(q$Revision: 2.24 $, 10);
+$VERSION = substr(q$Revision: 2.25 $, 10);
use strict;
package Vend::Table::Common;
@@ -127,11 +127,7 @@
return $val;
}
-sub unstuff {
- my ($val) = @_;
- $val =~ s,%(..),chr(hex($1)),eg;
- return $val;
-}
+*unstuff = \&Vend::Util::unhexify;
sub autonumber {
my $s = shift;