X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F304_constant_codeinfo.t;h=2f15af204333905627af46b769499ebabf75f82d;hb=41fc2d0fd29483cb704e06198bfaabbcd3e09d08;hp=eae71e5e26b745027c979bb97257e871755566dc;hpb=a1644fa15efaedb8aa7c004a8135632ba1c10906;p=gitmo%2FClass-MOP.git

diff --git a/t/304_constant_codeinfo.t b/t/304_constant_codeinfo.t
index eae71e5..2f15af2 100644
--- a/t/304_constant_codeinfo.t
+++ b/t/304_constant_codeinfo.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 use Test::More tests => 2;
@@ -13,10 +11,10 @@ use Class::MOP;
 
 my $meta = Class::MOP::Class->initialize('Foo');
 
-my %syms = $meta->get_all_package_symbols('CODE');
-is(ref $syms{FOO}, 'CODE', 'get constant symbol');
+my $syms = $meta->get_all_package_symbols('CODE');
+is(ref $syms->{FOO}, 'CODE', 'get constant symbol');
 
-undef %syms;
+undef $syms;
 
-%syms = $meta->get_all_package_symbols('CODE');
-is(ref $syms{FOO}, 'CODE', 'constant symbol still there, although we dropped our reference');
+$syms = $meta->get_all_package_symbols('CODE');
+is(ref $syms->{FOO}, 'CODE', 'constant symbol still there, although we dropped our reference');