[perl-xml-cvs] CVS: xml-simple/lib/XML Simple.pm,1.6,1.7

[Grant M. <gr...@us...>]

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;