From 7b2703d27973908fb7b87066c29e16dd1e02c5d4 Mon Sep 17 00:00:00 2001 From: J Pipkin Date: Sun, 6 Jan 2013 03:57:04 -0600 Subject: propogate @symlinks from check_distfiles to do_slackbuild, update tests accordingly --- SBO-Lib/lib/SBO/Lib.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'SBO-Lib/lib/SBO/Lib.pm') diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index f81350a..afddc3e 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -591,7 +591,7 @@ sub check_distfiles { get_distfile($link, $md5) unless verify_distfile($link, $md5); } my @symlinks = create_symlinks($args{LOCATION}, %downloads); - return 1; + return \@symlinks; } # given a location and a list of download links, assemble a list of symlinks, @@ -736,6 +736,7 @@ sub do_slackbuild { JOBS => 0, LOCATION => '', COMPAT32 => 0, + SYMLINKS => '', @_ ); $args{LOCATION} or script_error 'do_slackbuild requires LOCATION.'; @@ -768,7 +769,7 @@ sub do_slackbuild { X32 => $x32, ); $pkg = do_convertpkg $pkg if $args{COMPAT32}; - unlink $_ for @symlinks; + unlink $_ for @{$args{SYMLINKS}}; return $version, $pkg, $src; } -- cgit v1.2.3