From: Sean O'Rourke <seano@foobar.local>
Date: Sat, 8 Sep 2012 23:09:43 +0000 (-0700)
Subject: Defend against "Modern" Perls.
X-Git-Url: https://repo.or.cz/w/sepia.git/commitdiff_plain/e9d2b4ad1d2c222cf2954797edaba1b80ca8a0a9

Defend against "Modern" Perls.
---

diff --git a/lib/Sepia.pm b/lib/Sepia.pm
index 9abfa11..76ac49d 100644
--- a/lib/Sepia.pm
+++ b/lib/Sepia.pm
@@ -33,11 +33,18 @@ interface.
 
 =cut
 
+use 5.008;                      # try to defend against "Modern"
 $VERSION = '0.992_01';
 BEGIN {
     if ($] >= 5.012) {
         eval 'no warnings "deprecated"'; # undo some of the 5.12 suck.
     }
+    if ($] > 5.012003Z) {
+        warn <<EOS;
+Perl $] (newer than 5.12.3) may break Sepia.  Please let the author
+(seano\@cpan.org) know what happens.
+EOS
+    }
     # Not as useful as I had hoped...
     sub track_requires
     {