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

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

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

Modified Files:
	Simple.pm 
Log Message:
- changed Storable calls to use locking

Index: Simple.pm
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/lib/XML/Simple.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Simple.pm	11 Dec 2002 01:50:19 -0000	1.8
+++ Simple.pm	15 Dec 2002 08:08:19 -0000	1.9
@@ -52,7 +52,7 @@
 
 @ISA               = qw(Exporter);
 @EXPORT            = qw(XMLin XMLout);
-$VERSION           = '2.01';
+$VERSION           = '2.02';
 $PREFERRED_PARSER  = undef;
 
 my $StrictMode     = 0;
@@ -343,7 +343,7 @@
 
   require Storable;           # We didn't need it until now
   
-  Storable::nstore($data, $cachefile);
+  Storable::lock_nstore($data, $cachefile);
   
 }
 
@@ -369,7 +369,7 @@
     require Storable;           # We didn't need it until now
   }
   
-  return(Storable::retrieve($cachefile));
+  return(Storable::lock_retrieve($cachefile));
   
 }
 
@@ -2416,7 +2416,7 @@
 
 =head1 STATUS
 
-This version (2.01) is the current stable version.
+This version (2.02) is the current stable version.
 
 =head1 SEE ALSO