From: Shawn M Moore <sartak@bestpractical.com>
Date: Sat, 19 Feb 2011 04:13:07 +0000 (-0500)
Subject: Missing a :: after $first_fragments
X-Git-Tag: 2.0001~26
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8550cb050f0ef490551d77d25fd314c03172b2e3;p=gitmo%2FMoose.git

Missing a :: after $first_fragments
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index d33b978..439c38e 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -469,7 +469,7 @@ sub _remove_generated_metaobjects {
         no strict 'refs';
         @{$name . '::ISA'} = ();
         %{$name . '::'}    = ();
-        delete ${$first_fragments}{$last_fragment . '::'};
+        delete ${$first_fragments . '::'}{$last_fragment . '::'};
 
         Class::MOP::remove_metaclass_by_name($name);
     }
diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index 095fd7e..b28a817 100644
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -640,7 +640,7 @@ sub consumers {
         no strict 'refs';
         @{$name . '::ISA'} = ();
         %{$name . '::'}    = ();
-        delete ${$first_fragments}{$last_fragment . '::'};
+        delete ${$first_fragments . '::'}{$last_fragment . '::'};
 
         Class::MOP::remove_metaclass_by_name($name);
     }