Upgrade to Devel::PPPort 3.07

[p5sagit/p5-mst-13.2.git] / ext / Devel / PPPort / t / testutil.pl

diff --git a/ext/Devel/PPPort/t/testutil.pl b/ext/Devel/PPPort/t/testutil.pl
index 408553f..a4879d8 100644 (file)
--- a/ext/Devel/PPPort/t/testutil.pl
+++ b/ext/Devel/PPPort/t/testutil.pl
@@ -14,7 +14,7 @@
       } elsif (!defined $result) {
         $ok = 0;
       } elsif (ref($expected) eq 'Regexp') {
-        $ok = $result =~ /$expected/;
+        die "using regular expression objects is not backwards compatible";
       } else {
         $ok = $result eq $expected;
       }