From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sat, 18 Jun 2016 14:37:06 +0000 (+0200)
Subject: Couple more skips/clarifications (not applicable to master)
X-Git-Tag: v0.082840~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9407bf043a452e04563e44b66f99bcf7cb2d4586;p=dbsrgits%2FDBIx-Class.git

Couple more skips/clarifications (not applicable to master)
---

diff --git a/t/storage/debug.t b/t/storage/debug.t
index 5f8d53d..d62009a 100644
--- 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
--- 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');