diff options
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 4 | ||||
| -rwxr-xr-x | sboupgrade | 4 |
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); } @@ -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; } |