[perl-xml-cvs] CVS: xml-simple/t 5_MemCopy.t,1.1.1.1,1.1.1.1.2.1

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

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

Modified Files:
      Tag: Release-1_06-maint
	5_MemCopy.t 
Log Message:
- added missing pause to cache test code

Index: 5_MemCopy.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/5_MemCopy.t,v
retrieving revision 1.1.1.1
retrieving revision 1.1.1.1.2.1
diff -u -d -r1.1.1.1 -r1.1.1.1.2.1
--- 5_MemCopy.t	2 Dec 2001 15:51:38 -0000	1.1.1.1
+++ 5_MemCopy.t	9 Feb 2002 22:38:44 -0000	1.1.1.1.2.1
@@ -199,6 +199,7 @@
 open(FILE, ">$XMLFile");              # Write some new data to the XML file
 print FILE qq(<opt one="1" two="2"></opt>\n);
 close(FILE);
+PassTime(time());                     # Ensure current time later than file time
 
                                       # Parse again with caching enabled
 $opt = XMLin($XMLFile, cache => 'memcopy');