diff options
Diffstat (limited to 'slackbuilder')
-rwxr-xr-x | slackbuilder | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/slackbuilder b/slackbuilder index 6e3ac47..9ad2722 100755 --- a/slackbuilder +++ b/slackbuilder @@ -9,7 +9,7 @@ use File::Basename; use File::Spec; use Unix::Sysexits; use SlackBuilder; -use SlackBuild::Request::Auto; +use SlackBuild::Request; use Net::SBo; use JSON; use Try::Tiny; @@ -36,15 +36,6 @@ sub error { print STDERR "$msg\n" } -sub readfile { - my $file = shift; - local $/ = undef; - open(my $fd, $file) or abend(EX_NOINPUT, "can't open file $file: $!"); - my $string = <$fd>; - close $fd; - return decode_json($string); -} - my %sbargs; GetOptions("h" => sub { pod2usage(-message => "$progname: $progdescr", @@ -64,7 +55,7 @@ GetOptions("h" => sub { abend(EX_USAGE, "bad number of arguments") unless @ARGV == 1; my $reqname = shift @ARGV; my $req = try { - new SlackBuild::Request::Auto($reqname) + new SlackBuild::Request($reqname) } catch { my $err = (split /\n/)[0]; $err =~ s{\s+at .* line \d+\.$}{}; |