diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2019-03-19 12:57:42 +0100 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2019-03-19 12:57:42 +0100 |
commit | 023d027a1a0f5e227bd251d281ea65bb98accd5d (patch) | |
tree | 7811207016b0c799ed26a7290346db9ad5d7e781 /lib/SlackBuild/Request.pm | |
parent | 2d68acedbacffb2d741b0ab7ea3e0a238b9ce591 (diff) | |
download | slackbuilder-023d027a1a0f5e227bd251d281ea65bb98accd5d.tar.gz slackbuilder-023d027a1a0f5e227bd251d281ea65bb98accd5d.tar.bz2 |
Bugfix
* lib/SlackBuild/Request.pm (extract_local_name): Properly define
$package and $version in the compartment.
Diffstat (limited to 'lib/SlackBuild/Request.pm')
-rw-r--r-- | lib/SlackBuild/Request.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/SlackBuild/Request.pm b/lib/SlackBuild/Request.pm index ca113d5..6b8e132 100644 --- a/lib/SlackBuild/Request.pm +++ b/lib/SlackBuild/Request.pm @@ -391,7 +391,8 @@ sub extract_local_name { my $s = new Safe; my $package = $self->package; my $version = $self->version; - $s->share('$package','$version'); + ${$s->varglob('package')} = $package; + ${$s->varglob('version')} = $version; foreach my $code (@$codelist) { $_ = $path; if (defined(my $r = $s->reval($code))) { |