summaryrefslogtreecommitdiff
path: root/sort-deb
diff options
context:
space:
mode:
Diffstat (limited to 'sort-deb')
-rwxr-xr-xsort-deb5
1 files changed, 3 insertions, 2 deletions
diff --git a/sort-deb b/sort-deb
index 37e90ad..fc760f1 100755
--- a/sort-deb
+++ b/sort-deb
@@ -24,9 +24,10 @@
# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+# change the argument to system calls to a list. -- Peter Palfrader
sub dpkgcmp{my ($i,$j)=@_;chomp $i;chomp $j;
- return system(" dpkg --compare-versions $i lt $j " ) * 1
- + system(" dpkg --compare-versions $i gt $j " ) *-1;
+ return system('dpkg', '--compare-versions', $i, 'lt', $j) * 1
+ + system('dpkg', '--compare-versions', $i, 'gt', $j) *-1;
;}
print (sort {dpkgcmp($a,$b)} <>);