X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F081_meta_package_extension.t;h=6bf3f6b0f01534de88e60147e5cfc022a7286366;hb=46fccbab1ce2ee3a115b69e05a383f42dbf78890;hp=4fcac7663784b69a94cef5edcb011c8868fce0ef;hpb=66806650970177c20634c4173452e066313f02e6;p=gitmo%2FClass-MOP.git

diff --git a/t/081_meta_package_extension.t b/t/081_meta_package_extension.t
index 4fcac76..6bf3f6b 100644
--- a/t/081_meta_package_extension.t
+++ b/t/081_meta_package_extension.t
@@ -32,7 +32,7 @@ use Class::MOP;
     sub add_package_symbol {
         my ($self, $variable, $initial_value) = @_;
 
-        my ($name, $sigil, $type) = $self->_deconstruct_variable_name($variable);
+        (my $name = $variable) =~ s/^[\$\@\%\&]//;
 
         my $glob = gensym();
         *{$glob} = $initial_value if defined $initial_value;