|
From: James E. J. Jr. <mu...@us...> - 2003-08-02 06:16:52
|
Update of /cvsroot/psp/psp/lib/tools/FieldSpace
In directory sc8-pr-cvs1:/tmp/cvs-serv27658/psp/lib/tools/FieldSpace
Modified Files:
Propagation.pm
Log Message:
do not consider empty string to be a pair.
Index: Propagation.pm
===================================================================
RCS file: /cvsroot/psp/psp/lib/tools/FieldSpace/Propagation.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- Propagation.pm 1 Nov 2002 22:59:34 -0000 1.3
+++ Propagation.pm 2 Aug 2003 06:16:49 -0000 1.4
@@ -186,6 +186,7 @@
@pairs or @values or next;
$group->{import_controls} = [];
for my $pair (@pairs) {
+ length($pair) or last;
my ($key,$value) = ($pair =~ /^([^=]+)=(.*)$/);
push @{$group->{import_controls}}, $key => $value;
}
|