Update of /cvsroot/perl-xml/xml-simple/lib/XML
In directory sc8-pr-cvs1:/tmp/cvs-serv31874/lib/XML
Modified Files:
Simple.pm
Log Message:
- fixed bug whereby :strict mode required forcearray on XMLout()
Index: Simple.pm
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/lib/XML/Simple.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- Simple.pm 8 Dec 2002 02:37:40 -0000 1.6
+++ Simple.pm 11 Dec 2002 01:48:00 -0000 1.7
@@ -52,7 +52,7 @@
@ISA = qw(Exporter);
@EXPORT = qw(XMLin XMLout);
-$VERSION = '2.00';
+$VERSION = '2.01';
$PREFERRED_PARSER = undef;
my $StrictMode = 0;
@@ -668,7 +668,7 @@
}
}
else {
- if($StrictMode) {
+ if($StrictMode and $dirn eq 'in') {
croak "No value specified for 'forcearray' option in call to XML$dirn()";
}
$opt->{forcearray} = 0;
|
