summaryrefslogtreecommitdiff
path: root/lib/SlackBuild/Request.pm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2019-03-19 12:57:42 +0100
committerSergey Poznyakoff <gray@gnu.org.ua>2019-03-19 12:57:42 +0100
commit023d027a1a0f5e227bd251d281ea65bb98accd5d (patch)
tree7811207016b0c799ed26a7290346db9ad5d7e781 /lib/SlackBuild/Request.pm
parent2d68acedbacffb2d741b0ab7ea3e0a238b9ce591 (diff)
downloadslackbuilder-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.pm3
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))) {

Return to:

Send suggestions and report system problems to the System administrator.