From 17c0e80f7908f4c64807579472fe653efa93e935 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 21 Jun 2013 01:34:42 -0400
Subject: this gave a different error on earlier perls

---
 t/compile-error.t | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/t/compile-error.t b/t/compile-error.t
index db4e980..0bf092f 100644
--- a/t/compile-error.t
+++ b/t/compile-error.t
@@ -34,7 +34,13 @@ like(
 
 like(
     exception { $foo->meth },
-    qr/^Can't locate object method "meth" via package "Foo"/,
+    qr{^
+        # 5.18+
+        (?:Can't\ locate\ object\ method\ "meth"\ via\ package\ "Foo")
+        |
+        # 5.16 and earlier
+        (?:Undefined\ subroutine\ &Foo::meth\ called)
+    }x,
     "\$foo->meth doesn't work now"
 );
 
-- 
cgit v1.2.3-54-g00ecf