From d1c10b2f406b0e2b38bfd61022de3d640580c738 Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Sun, 28 Aug 2016 14:34:53 +0200
Subject: SBO::Lib::Info/Tree: move get_orig_version from ::Tree to ::Info

and update ::Pkgs accordingly
---
 SBO-Lib/lib/SBO/Lib/Tree.pm | 22 ----------------------
 1 file changed, 22 deletions(-)

(limited to 'SBO-Lib/lib/SBO/Lib/Tree.pm')

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