pf-tools/pf-tools: Adding test for purge package

[parmelan-guest at users.alioth.debian.org]

details:   http://hg.debian.org/hg/pf-tools/pf-tools/rev/7867c5920f82
changeset: 1197:7867c5920f82
user:      Richard Phan
date:      Mon Aug 19 11:04:44 2013 +0200
description:
Adding test for purge package

diffstat:

 lib/PFTools/Packages/DEB.pm |  8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diffs (18 lines):

diff -r 1f3d6368a29c -r 7867c5920f82 lib/PFTools/Packages/DEB.pm
--- a/lib/PFTools/Packages/DEB.pm	Wed Aug 07 15:55:53 2013 +0200
+++ b/lib/PFTools/Packages/DEB.pm	Mon Aug 19 11:04:44 2013 +0200
@@ -60,6 +60,14 @@
 
     my $result = {};
     my $output_fh;
+
+    if ( deferredlogsystem("$PKG_CMD->{'status'} '$pkg_name'") ) {
+        $result->{'installed'} = 0;
+        carp qq{WARN: $pkg_name is not installed: $OS_ERROR"}
+            if ($VERBOSE);
+        return $result;
+    }
+
     unless (
         $output_fh = IO::File->new(
             "$PKG_CMD->{'status'} '$pkg_name' 2>/dev/null |"