Skip Menu |
 

This queue is for tickets about the Bit-Vector CPAN distribution.

Report information
The Basics
Id: 84250
Status: new
Priority: 0/
Queue: Bit-Vector

People
Owner: Nobody in particular
Requestors: GAAS [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 7.2
Fixed in: (no value)



Subject: t/02_____destroy.t fails with perl-5.17.11: eval { 1->method } triggers different error
 I had to apply the following patch to t/02_____destroy.t to make it pass on perl-5.17.11.
Subject: Bit-Vector-destroy.patch
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


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.