r6122@000-443-371 (orig r9951): rkinyon | 2007-09-19 22:33:23 -0400

[dbsrgits/DBM-Deep.git] / t / 17_import.t

diff --git a/t/17_import.t b/t/17_import.t
index 7792b6d..b4ff262 100644 (file)
--- a/t/17_import.t
+++ b/t/17_import.t
@@ -56,6 +56,9 @@ use_ok( 'DBM::Deep' );
 }
 
 {
+    diag "\nThere seems to be a bug in Clone on Perl 5.9+ that is causing\nthese tests to fail."
+        if $] >= 5.009;
+
     my ($fh, $filename) = new_fh();
     my $db = DBM::Deep->new({
         file => $filename,