Click here to go back to the commit logs for shlibdeps-resolve.

Commit:

---

Hash: 90b8da25904c1c7b0d9013786ff33ecf587a1898

Message: update

Diff

---

diff --git a/.SRCINFO b/.SRCINFO
index 4340298..9e7d277 100644
--- a/.SRCINFO
+++ b/.SRCINFO
@@ -3,11 +3,11 @@ pkgname = shlibdeps-resolve
 pkgbase = shlibdeps-resolve
 pkgdesc = An\ shared\ library\ dependencies\ resolver
 pkgrel = 1
-pkgver = 0.1
+pkgver = 0.4
 url = https://github.com/huakim-tyk/shlibdeps-resolve/
 arch = all
 license = GPL2
 source = build.sh
 source = shlibdeps-resolve.pl
 sha256sums = 06a0cb545a0e7228fd41f3f0bfcb46f6c252bd0b657491836d99804876923243
-sha256sums = b450ce7d8564aa47801eb90b18c013e7223306974272569e012d86a16c2938f3
+sha256sums = 831f66c5ad69812c23edff1a6154eb68fa86f14798ad2a0aa882daa230c00bbd
diff --git a/PKGBUILD b/PKGBUILD
index 8083554..954df8c 100644
--- a/PKGBUILD
+++ b/PKGBUILD
@@ -1,6 +1,6 @@
 pkgbase=$'shlibdeps-resolve'
 pkgname=$'shlibdeps-resolve'
-pkgver=$'0.1'
+pkgver=$'0.4'
 pkgrel=$'1'
 pkgdesc=$'An\ shared\ library\ dependencies\ resolver'
 arch=(
@@ -16,7 +16,7 @@ $'shlibdeps-resolve.pl'
 )
 sha256sums=(
 $'06a0cb545a0e7228fd41f3f0bfcb46f6c252bd0b657491836d99804876923243'
-$'b450ce7d8564aa47801eb90b18c013e7223306974272569e012d86a16c2938f3'
+$'831f66c5ad69812c23edff1a6154eb68fa86f14798ad2a0aa882daa230c00bbd'
 )
 package () 
 { 
diff --git a/shlibdeps-resolve.pl b/shlibdeps-resolve.pl
index 184dc8d..cc6b9db 100644
--- a/shlibdeps-resolve.pl
+++ b/shlibdeps-resolve.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
 use Getopt::Long GetOptionsFromArray;
-
+use Module::Load;
 
 my $bin = [];
 my $root = [];
 my $version;
-my $VERSION = "0.1";
+my $VERSION = "0.4";
 
 GetOptionsFromArray(\@ARGV,  
 "binary|b=s" => $bin,
@@ -14,6 +14,9 @@ GetOptionsFromArray(\@ARGV,
 "root|r=s" => $root);
 
 
+if (! scalar @$bin)  { $bin  = undef; }
+if (! scalar @$root) { $root = undef; }
+
 if ($help){
     help:
     print "Usage: shlibdeps-resolve [<option>...] -b src
@@ -28,15 +31,12 @@ Options:
     if ($version) {
         print($VERSION); 
     } else {
-        if (scalar @$bin){
-
-
-            use DPKG::Parse::Info;
-            use DPKG::ShlibDeps::Resolve qw(scan_shared_lib);
-            my $info = DPKG::Parse::Info->new;
-            $info->parse;
-
-            print(join("\n", scan_shared_lib($info, $bin, $root)));
+        if (defined $bin){
+            load 'DPKG::ShlibDeps::Resolve', qw(scan_shared_lib);
+            print(join("\n", scan_shared_lib(
+                'base', $bin, 
+                'root', $root
+            )));
         } else {
             goto help;
         }