blob: 580f4cf217a7681961f9c931a68dde244f81170d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
From 0646f34fc3eeb47627822df860986cf7bee4ebed Mon Sep 17 00:00:00 2001
From: Gisle Aas <gisle@activestate.com>
Date: Thu, 28 Mar 2013 00:41:07 -0700
Subject: [PATCH] eval { 1->method } triggers different error in 5.17.11
---
t/02_____destroy.t | 4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/t/02_____destroy.t b/t/02_____destroy.t
index 41e3aa3..adcf995 100644
--- a/t/02_____destroy.t
+++ b/t/02_____destroy.t
@@ -17,7 +17,9 @@ if (ref($set) eq '')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
eval { $set->DESTROY(); };
-if ($@ =~ /Can't call method "DESTROY" without a package or object reference/)
+if ($@ =~ /Can't call method "DESTROY" without a package or object reference/ ||
+ $@ =~ /Can't locate object method "DESTROY" via package "1"/
+)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
eval { Bit::Vector::DESTROY($set); };
--
1.7.0.5
|
