31d6c36eed
Fix build failure, take the patch from github, upstream does not react for a year, local patch is the best way to fix it now. OBS-URL: https://build.opensuse.org/request/show/245222 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-WWW-Mechanize-TreeBuilder?expand=0&rev=8
46 lines
1.5 KiB
Diff
46 lines
1.5 KiB
Diff
From 6633ca3caf58f21df7b69f0c59c481c755ff31f2 Mon Sep 17 00:00:00 2001
|
|
From: Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>
|
|
Date: Tue, 14 Jan 2014 11:01:42 +0000
|
|
Subject: [PATCH] remove use of Class::MOP::load_class
|
|
|
|
also, make Moose's new "is a class loaded?" test happy
|
|
---
|
|
lib/WWW/Mechanize/TreeBuilder.pm | 3 ++-
|
|
t/lib/MockTreeBuilder.pm | 2 +-
|
|
2 files changed, 3 insertions(+), 2 deletions(-)
|
|
|
|
diff --git a/lib/WWW/Mechanize/TreeBuilder.pm b/lib/WWW/Mechanize/TreeBuilder.pm
|
|
index 0b1fb93..84705e8 100644
|
|
--- a/lib/WWW/Mechanize/TreeBuilder.pm
|
|
+++ b/lib/WWW/Mechanize/TreeBuilder.pm
|
|
@@ -82,11 +82,12 @@ element_class when C<tree_class> is "HTML::TreeBuilder" or
|
|
|
|
use MooseX::Role::Parameterized;
|
|
use Moose::Util::TypeConstraints;
|
|
+use Class::Load 'load_class';
|
|
#use HTML::TreeBuilder;
|
|
|
|
subtype 'WWW.Mechanize.TreeBuilder.LoadClass'
|
|
=> as 'Str'
|
|
- => where { Class::MOP::load_class($_) }
|
|
+ => where { load_class($_) }
|
|
=> message { "Cannot load class $_" };
|
|
|
|
subtype 'WWW.Mechanize.TreeBuilder.TreeClass'
|
|
diff --git a/t/lib/MockTreeBuilder.pm b/t/lib/MockTreeBuilder.pm
|
|
index d1fb5e8..8e1a676 100644
|
|
--- a/t/lib/MockTreeBuilder.pm
|
|
+++ b/t/lib/MockTreeBuilder.pm
|
|
@@ -13,7 +13,7 @@ $WWW::Mechanize::TreeBuilder::ELEMENT_CLASS_MAPPING{"@{[__PACKAGE__]}"} = 'MockT
|
|
|
|
package #
|
|
MockTreeBuilderEle;
|
|
-
|
|
+$INC{'MockTreeBuilderEle.pm'}=1; # help stricter Moose checking
|
|
use base 'HTML::Element';
|
|
|
|
sub some_other_method { "I exist in " . Scalar::Util::blessed($_[0]) };
|
|
--
|
|
2.0.3
|
|
|