[perl-xml-cvs] CVS: xml-simple/t 3_Storable.t,1.7,1.8

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

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

Modified Files:
	3_Storable.t 
Log Message:
- added check for old versions of STorable

Index: 3_Storable.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/3_Storable.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- 3_Storable.t	18 May 2003 08:43:13 -0000	1.7
+++ 3_Storable.t	20 May 2003 08:48:08 -0000	1.8
@@ -12,6 +12,10 @@
 unless($INC{'Storable.pm'}) {
   plan skip_all => 'no Storable.pm';
 }
+unless(UNIVERSAL::can(Storable => 'lock_nstore')) {
+  plan skip_all => 'Storable.pm is too old - no file locking support';
+}
+
 
 # Initialise filenames and check they're there