diff options
Diffstat (limited to 'SBO-Lib/lib/SBO/Lib/Tree.pm')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib/Tree.pm | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/SBO-Lib/lib/SBO/Lib/Tree.pm b/SBO-Lib/lib/SBO/Lib/Tree.pm index c347659..5fa321e 100644 --- a/SBO-Lib/lib/SBO/Lib/Tree.pm +++ b/SBO-Lib/lib/SBO/Lib/Tree.pm @@ -13,7 +13,6 @@ use Exporter 'import'; our @EXPORT_OK = qw{ get_orig_location - get_orig_version get_sbo_location get_sbo_locations is_local @@ -59,27 +58,6 @@ sub get_orig_location { return $orig{$sbo}; } -=head2 get_orig_version - - my $ver = get_orig_version($sbo); - -C<get_orig_version()> returns the version in the SlackBuilds.org tree for the -given C<$sbo>. - -=cut - -sub get_orig_version { - script_error('get_orig_version requires an argument.') unless @_ == 1; - my $sbo = shift; - - my $location = get_orig_location($sbo); - - return $location if not defined $location; - - return get_sbo_version($location); -} - - =head2 get_sbo_location my $loc = get_sbo_location($sbo, ...); |