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

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

Update of /cvsroot/perl-xml/xml-simple/lib/XML
In directory sc8-pr-cvs1:/tmp/cvs-serv2116/lib/XML

Modified Files:
	Simple.pm 
Log Message:
- fixed strict mode bug where ForceArray was demanded on output
- suppressed warning re uninitialised value

Index: Simple.pm
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/lib/XML/Simple.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- Simple.pm	16 Apr 2003 10:16:28 -0000	1.12
+++ Simple.pm	18 May 2003 08:40:41 -0000	1.13
@@ -53,7 +53,7 @@
 @ISA               = qw(Exporter);
 @EXPORT            = qw(XMLin XMLout);
 @EXPORT_OK         = qw(xml_in xml_out);
-$VERSION           = '2.05';
+$VERSION           = '2.06';
 $PREFERRED_PARSER  = undef;
 
 my $StrictMode     = 0;
@@ -738,7 +738,7 @@
         foreach my $el (keys(%{$opt->{keyattr}})) {
           if($opt->{keyattr}->{$el} =~ /^(\+|-)?(.*)$/) {
             $opt->{keyattr}->{$el} = [ $2, ($1 ? $1 : '') ];
-            if($StrictMode) {
+            if($StrictMode  and  $dirn eq 'in') {
               next if($opt->{forcearray} == 1);
               next if(ref($opt->{forcearray}) eq 'HASH'
                       and $opt->{forcearray}->{$el});
@@ -973,6 +973,7 @@
   if($self->{opt}->{grouptags}) {
     while(my($key, $val) = each(%$attr)) {
       next unless(UNIVERSAL::isa($val, 'HASH') and (keys %$val == 1));
+      next unless(exists($self->{opt}->{grouptags}->{$key}));
 
       my($child_key, $child_val) =  %$val;
 
@@ -1962,7 +1963,7 @@
 specify a list of element names which should always be forced into an array
 representation, rather than the 'all or nothing' approach above.
 
-It is also possible (since version 2.05) to include compiled regular
+It is also possible (since version 2.06) to include compiled regular
 expressions in the list - any element names which match the pattern will be
 forced to arrays.  If the list contains only a single regex, then it is not
 necessary to enclose it in an arrayref.  Eg:
@@ -2792,7 +2793,7 @@
 
 =head1 STATUS
 
-This version (2.05) is the current stable version.
+This version (2.06) is the current stable version.
 
 =head1 SEE ALSO
 
@@ -2801,6 +2802,9 @@
 To generate documents with namespaces, L<XML::NamespaceSupport> is required.
 
 The optional caching functions require L<Storable>.
+
+Answers to Frequently Asked Questions about XML::Simple are bundled with this
+distribution as: L<XML::Simple::FAQ>
 
 =head1 COPYRIGHT