diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-06-21 01:34:42 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-06-21 01:34:42 -0400 |
commit | 17c0e80f7908f4c64807579472fe653efa93e935 (patch) | |
tree | 3756b8c150a653319586c7d2ebfbcbca02dcdaf8 | |
parent | 0dbd8a5f85868e03d1fdab9ff5b7dbd33f79bbb2 (diff) | |
download | class-refresh-17c0e80f7908f4c64807579472fe653efa93e935.tar.gz class-refresh-17c0e80f7908f4c64807579472fe653efa93e935.zip |
this gave a different error on earlier perls
-rw-r--r-- | t/compile-error.t | 8 |
1 files changed, 7 insertions, 1 deletions
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" ); |