sync w/ modified File::Cache

1 files changed, 12 insertions, 6 deletions

diff --git a/regress/base/cachedir.pl b/regress/base/cachedir.pl
index 562ebe05..7cfd13a3 100755
--- a/regress/base/cachedir.pl
+++ b/regress/base/cachedir.pl
@@ -5,7 +5,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself. 
 #
-# $FML$
+# $FML: cachedir.pl,v 1.1 2001/04/04 03:10:09 fukachan Exp $
 #
 
 -d "/tmp/b" || mkdir("/tmp/b", 0755);
@@ -15,7 +15,7 @@ use File::CacheDir;
 
 my $obj = new File::CacheDir {
     directory => "/tmp/b"
-};
+    };
 
 
 &simple_write_to_ring_buffer($obj);
@@ -29,8 +29,8 @@ my $obj = new File::CacheDir {
 
 
 my $obj = new File::CacheDir {
-    directory => "/tmp/b",
-    limited_by => 'time',
+    directory  => "/tmp/b",
+    cache_type => 'temporal',
 };
 
 &simple_write_to_ring_buffer($obj);
@@ -38,12 +38,18 @@ my $obj = new File::CacheDir {
 
 sub simple_write_to_ring_buffer
 {
-	my ($obj) = @_;
+    my ($obj) = @_;
 
+    if (defined $obj) {
 	my $fh = $obj->open;
 	$_ = `date`;
 	print $fh $_;
 	close($fh);
-
 	$obj->close;
+	system "ls -lR /tmp/b";
+    }
+    else {
+	print "Error: undefined object: ";
+	print $@, "\n";
+    }
 }