Couple more skips/clarifications (not applicable to master)

diff --git a/t/storage/debug.t b/t/storage/debug.t
index 5f8d53d..d62009a 100644 (file)
--- a/t/storage/debug.t
+++ b/t/storage/debug.t
@@ -55,7 +55,7 @@ $schema->storage->debugfh(undef);
 }
 
 END {
-  unlink $lfn;
+  unlink $lfn if $lfn;
 }
 
 open(STDERRCOPY, '>&STDERR');

diff --git a/xt/podcoverage.t b/xt/podcoverage.t
index f5633e0..5a683fe 100644 (file)
--- a/xt/podcoverage.t
+++ b/xt/podcoverage.t
@@ -7,6 +7,9 @@ use lib qw(t/lib maint/.Generated_Pod/lib);
 use DBICTest;
 use namespace::clean;
 
+plan skip_all => "Skipping finicky test on older perl"
+  if "$]" < 5.008005;
+
 require DBIx::Class;
 unless ( DBIx::Class::Optional::Dependencies->req_ok_for ('test_podcoverage') ) {
   my $missing = DBIx::Class::Optional::Dependencies->req_missing_for ('test_podcoverage');