From 3673d4d416b509032daa7e1483bc24daa32ff3d4 Mon Sep 17 00:00:00 2001
From: xocel <xocel@iquidus.org>
Date: Fri, 11 Jan 2013 16:11:11 +1300
Subject: %failures now declared as , sboinstall line 96: changed  to
 %locations

---
 sboinstall | 8 ++++----
 sboupgrade | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/sboinstall b/sboinstall
index fe9c3ef..a441c08 100755
--- a/sboinstall
+++ b/sboinstall
@@ -93,7 +93,7 @@ if ($no_reqs or $non_int) {
 }
 
 # populate %locations and sanity check
-$locations = get_sbo_location($build_queue);
+%locations = get_sbo_location($build_queue);
 for my $sbo (@$build_queue) {
 	usage_error "Unable to locate $sbo in the SlackBuilds.org tree." unless
 		defined $locations{$sbo};
@@ -162,7 +162,7 @@ unless ($non_int) {
     exit 0 unless <STDIN> =~ /^[Yy\n]/;
 }
 
-my %failures = process_sbos(
+my $failures = process_sbos(
 	TODO		=> $build_queue,
 	CMDS		=> \%commands,
 	OPTS		=> \%options,
@@ -172,6 +172,6 @@ my %failures = process_sbos(
 	NOCLEAN		=> $noclean,
 	DISTCLEAN	=> $distclean,
 );
-print_failures(%failures);
+print_failures(%$failures);
 
-exit keys %failures > 0 ? 1 : 0;
+exit keys %$failures > 0 ? 1 : 0;
diff --git a/sboupgrade b/sboupgrade
index c1f242d..695d247 100755
--- a/sboupgrade
+++ b/sboupgrade
@@ -213,7 +213,7 @@ unless ($non_int) {
     exit 0 unless <STDIN> =~ /^[Yy\n]/;
 }
 
-my %failures = process_sbos(
+my $failures = process_sbos(
 	TODO		=> $upgrade_queue,
 	CMDS		=> \%commands,
 	OPTS		=> \%options,
@@ -223,6 +223,6 @@ my %failures = process_sbos(
 	NOCLEAN		=> $noclean,
 	DISTCLEAN	=> $distclean,
 );
-print_failures(%failures);
+print_failures(%$failures);
 
-exit keys %failures > 0 ? 1 : 0;
+exit keys %$failures > 0 ? 1 : 0;
-- 
cgit v1.2.3