From: gfx <gfuji@cpan.org>
Date: Sat, 13 Feb 2010 05:57:26 +0000 (+0900)
Subject: Fix tool/create-moose-compatibility-tests.pl to replace class_of()
X-Git-Tag: 0.50_01~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=71367d2f2e9f0ccddcd36283ea2fb8115655fc3a;p=gitmo%2FMouse.git

Fix tool/create-moose-compatibility-tests.pl to replace class_of()
---

diff --git a/tool/create-moose-compatibility-tests.pl b/tool/create-moose-compatibility-tests.pl
index 4b8d49e..122d9fe 100644
--- a/tool/create-moose-compatibility-tests.pl
+++ b/tool/create-moose-compatibility-tests.pl
@@ -66,6 +66,7 @@ File::Find::find(
                 };
                 $src =~ s/Mouse::(?:Util::)?is_class_loaded/Class::MOP::is_class_loaded/g;
                 $src =~ s/Mouse::(?:Util::)?load_class/Class::MOP::load_class/g;
+                $src =~ s/Mouse:::Util::class_of/Class::MOP::class_of/g;
                 $src =~ s/Mouse/Moose/g;
                 $src;
             };