From: espie <espie@openbsd.org>
Date: Fri, 18 Jul 2014 16:57:41 +0000 (+0000)
Subject: fix sorted output
X-Git-Url: http://artulab.com/gitweb/?a=commitdiff_plain;h=e903441b102f40504e34888d4afd038ee56f6cd7;p=openbsd

fix sorted output
---

diff --git a/usr.sbin/pkg_add/OpenBSD/PkgInfo.pm b/usr.sbin/pkg_add/OpenBSD/PkgInfo.pm
index 3a8d84aa662..e874e25b63a 100644
--- a/usr.sbin/pkg_add/OpenBSD/PkgInfo.pm
+++ b/usr.sbin/pkg_add/OpenBSD/PkgInfo.pm
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 # ex:ts=8 sw=4:
-# $OpenBSD: PkgInfo.pm,v 1.32 2014/07/08 16:45:44 zhuk Exp $
+# $OpenBSD: PkgInfo.pm,v 1.33 2014/07/18 16:57:41 espie Exp $
 #
 # Copyright (c) 2003-2014 Marc Espie <espie@openbsd.org>
 #
@@ -124,8 +124,8 @@ sub printfile_sorted
 	my @lines = (<$fh>);
 	close $fh;
 	foreach my $line (sort @lines) {
-		chomp;
-		$state->say("#1", $_);
+		chomp $line;
+		$state->say("#1", $line);
 	}
 	$state->say;
 }