fixed precedence bug: system "thing" == 0 or stuff should be system ("thing") == 0 or stuff

2 files changed, 4 insertions, 4 deletions

diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm
index c50f92b..b02bee1 100644
--- a/SBO-Lib/lib/SBO/Lib.pm
+++ b/SBO-Lib/lib/SBO/Lib.pm
@@ -318,7 +318,7 @@ sub get_distfile {
 	my $filename = get_filename_from_link ($link);
 	mkdir ($distfiles) unless -d $distfiles;
 	chdir ($distfiles);
-	system "wget $link" == 0 or die "Unable to wget $link\n";
+	system ("wget $link") == 0 or die "Unable to wget $link\n";
 	my $md5sum = compute_md5sum ($filename);
 	$md5sum eq $expected_md5sum or die "md5sum failure for $filename.\n";
 	return 1;
@@ -536,7 +536,7 @@ sub do_slackbuild {
 		my ($tempfh, $tempfn) = tempfile (DIR => $tempdir);
 		close $tempfh;
 		my $cmd = "/usr/sbin/convertpkg-compat32 -i $pkg -d /tmp | tee $tempfn";
-		system $cmd == 0 or die;
+		system ($cmd == 0) or die;
 		unlink $pkg;
 		$pkg = get_pkg_name ($tempfn);
 	}
diff --git a/sboupgrade b/sboupgrade
index a1c83fb..9bdc303 100755
--- a/sboupgrade
+++ b/sboupgrade
@@ -160,7 +160,7 @@ sub grok_user_group {
 	print "Shall I run it/them now? [y] ";
 	if (<STDIN> =~ /^[Yy\n]/) {
 		for my $cmd (@cmds) {
-			system $cmd == 0 or warn "\"$cmd\" exited non-zero\n";
+			system ($cmd == 0) or warn "\"$cmd\" exited non-zero\n";
 		}
 	}
 	return 1;
@@ -313,7 +313,7 @@ if ($install_new eq 'TRUE') {
 				print " [y] ";
 				if (<STDIN> =~ /^[Yy\n]/) {
 					my @args = ('/usr/sbin/sboupgrade', '-oN', $sbo);
-					system @args == 0 or exit 1;
+					system (@args) == 0 or exit 1;
 				} else {
 					print "Please install $sbo\n" and exit 0;
 				}