[interchange-cvs] interchange - heins modified lib/Vend/Interpolate.pm
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Wed Mar 26 09:17:00 2003
User: heins
Date: 2003-03-26 14:16:32 GMT
Modified: lib/Vend Interpolate.pm
Log:
* Remove redundant code from escape_form()
Revision Changes Path
2.153 +4 -6 interchange/lib/Vend/Interpolate.pm
rev 2.153, prev_rev 2.152
Index: Interpolate.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.152
retrieving revision 2.153
diff -u -r2.152 -r2.153
--- Interpolate.pm 20 Mar 2003 11:24:17 -0000 2.152
+++ Interpolate.pm 26 Mar 2003 14:16:32 -0000 2.153
@@ -1,6 +1,6 @@
# Vend::Interpolate - Interpret Interchange tags
#
-# $Id: Interpolate.pm,v 2.152 2003/03/20 11:24:17 racke Exp $
+# $Id: Interpolate.pm,v 2.153 2003/03/26 14:16:32 mheins Exp $
#
# Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
#
@@ -27,7 +27,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = substr(q$Revision: 2.152 $, 10);
+$VERSION = substr(q$Revision: 2.153 $, 10);
@EXPORT = qw (
@@ -2770,14 +2770,12 @@
$val =~ s/^\s+//mg;
$val =~ s/\s+$//mg;
- my @args;
## Already escaped, return
return $val if $val =~ /^\S+=\S+=\S*$/;
- $val =~ s/^\s+//mg;
- $val =~ s/\s+$//mg;
- @args = split /\n+/, $val;
+ my @args = split /\n+/, $val;
+
for(@args) {
s/^(.*?=)(.+)/$1 . Vend::Util::unhexify($2)/ge;
}