1 package Debian::Dpkg;

     2 

     3 use strict;

     4 use warnings;

     5 use Carp;

     6 

     7 sub compareVersions($$$) {

     8     my $rc = system("dpkg", "--compare-versions", @_) >> 8;

     9     return not $rc;

    10     croak "unable to compare versions: \"@_\" gave $rc";

    11 }

    12 

    13 1;

    14 # vim:sts=4 sw=4 aw ai sm: