diff options
author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-12-08 21:05:45 +0100 |
---|---|---|
committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-12-08 21:05:45 +0100 |
commit | 37c65d13f845d2864f26984c4ed50f2d80e07033 (patch) | |
tree | dd5217a323f13f57f74133dc41badcd74e752125 /sbofind | |
parent | ff45c2217584f8e72d5ae41288bfbb5f563509a4 (diff) | |
download | sbotools2-37c65d13f845d2864f26984c4ed50f2d80e07033.tar.xz |
Update manpages and scripts for #6
Diffstat (limited to 'sbofind')
-rwxr-xr-x | sbofind | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -13,7 +13,7 @@ use 5.16.0; use strict; use warnings FATAL => 'all'; -use SBO::Lib qw/ slackbuilds_or_fetch script_error open_read get_build_queue %config /; +use SBO::Lib qw/ slackbuilds_or_fetch script_error open_read get_build_queue %config $slackbuilds_txt $repo_path /; use File::Basename; use Getopt::Long qw(:config bundling); @@ -67,7 +67,7 @@ sub perform_search { my (@findings, $name, $found); my $name_regex = qr/NAME:\s+(.*\Q$search\E.*)$/i; my $loc_regex = qr/LOCATION:\s+(.*)$/; - my ($fh, $exit) = open_read "$config{SBO_HOME}/SLACKBUILDS.TXT"; + my ($fh, $exit) = open_read $slackbuilds_txt; if ($exit) { warn $fh; exit $exit; @@ -79,7 +79,7 @@ sub perform_search { if (my ($location) = ($line =~ $loc_regex)[0]) { $found = 0; $location =~ s#^\.##; - push @findings, {$name => $config{SBO_HOME} . $location}; + push @findings, {$name => $repo_path . $location}; } } } |