[perl-xml-cvs] CVS: xml-simple/t 1_XMLin.t,1.13,1.14 6_ObjIntf.t,1.6,1.7

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

Update of /cvsroot/perl-xml/xml-simple/t
In directory sc8-pr-cvs1:/tmp/cvs-serv8494/t

Modified Files:
	1_XMLin.t 6_ObjIntf.t 
Log Message:
- fixed duplicate declaration which caused warnings

Index: 1_XMLin.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/1_XMLin.t,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- 1_XMLin.t	18 May 2003 08:43:13 -0000	1.13
+++ 1_XMLin.t	20 May 2003 08:49:31 -0000	1.14
@@ -25,8 +25,8 @@
 $@ = '';
 eval "use XML::Simple;";
 is($@, '', 'Module compiled OK');
-unless($XML::Simple::VERSION eq '2.06') {
-  diag("Warning: XML::Simple::VERSION = $XML::Simple::VERSION (expected 2.06)");
+unless($XML::Simple::VERSION eq '2.07') {
+  diag("Warning: XML::Simple::VERSION = $XML::Simple::VERSION (expected 2.07)");
 }
 
 
@@ -337,7 +337,7 @@
 
 # Confirm the stringifying references bug is fixed
 
-my $xml = q(
+$xml = q(
   <opt>
     <item>
       <name><firstname>Bob</firstname></name>

Index: 6_ObjIntf.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/6_ObjIntf.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- 6_ObjIntf.t	18 May 2003 08:43:13 -0000	1.6
+++ 6_ObjIntf.t	20 May 2003 08:49:31 -0000	1.7
@@ -344,7 +344,7 @@
   <file name="debug_file">${log_dir}/appname.dbg</file>
 </opt>);
 
-my $opt = $xs1->XMLin($xml);
+$opt = $xs1->XMLin($xml);
 is_deeply($opt, {
   file => {
     config_file => '/etc/appname.conf',