diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-11-12 13:03:02 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-11-12 13:03:02 -0600 |
| commit | e3ad44fd3e7afaec9dbe9420082df0a227d7c696 (patch) | |
| tree | 0945554559dee92c9c3675331c19ee2b7b7a1a13 /t | |
| parent | 76f7c3068e8bd63fcbac28758631fcda72596674 (diff) | |
| download | package-stash-xs-e3ad44fd3e7afaec9dbe9420082df0a227d7c696.tar.gz package-stash-xs-e3ad44fd3e7afaec9dbe9420082df0a227d7c696.zip | |
get_package_symbol, without the vivify bits yet
Diffstat (limited to 't')
| -rw-r--r-- | t/02-extension.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/02-extension.t b/t/02-extension.t index 18d87ea..0136b1a 100644 --- a/t/02-extension.t +++ b/t/02-extension.t @@ -23,7 +23,7 @@ use Test::Fatal; 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; |