SBO::Lib::Info/Tree: move get_orig_version from ::Tree to ::Info

and update ::Pkgs accordingly

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, ...);