From 55899a0de13423b13a2121ec51128031dd5a6936 Mon Sep 17 00:00:00 2001
From: Marc Espie <espie@cvs.openbsd.org>
Date: Mon, 4 Dec 2006 11:29:03 +0000
Subject: add rcompress method

---
 usr.sbin/pkg_add/OpenBSD/PkgConfig.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'usr.sbin/pkg_add/OpenBSD')

diff --git a/usr.sbin/pkg_add/OpenBSD/PkgConfig.pm b/usr.sbin/pkg_add/OpenBSD/PkgConfig.pm
index c4a0b705d4a..6b8e706148e 100644
--- a/usr.sbin/pkg_add/OpenBSD/PkgConfig.pm
+++ b/usr.sbin/pkg_add/OpenBSD/PkgConfig.pm
@@ -1,5 +1,5 @@
 # ex:ts=8 sw=4:
-# $OpenBSD: PkgConfig.pm,v 1.8 2006/12/01 16:36:37 espie Exp $
+# $OpenBSD: PkgConfig.pm,v 1.9 2006/12/04 11:29:02 espie Exp $
 #
 # Copyright (c) 2006 Marc Espie <espie@openbsd.org>
 #
@@ -172,6 +172,13 @@ sub compress
 	return join(' ', @{$class->compress_list($l, $keep)});
 }
 
+sub rcompress
+{
+	my ($class, $l, $keep) = @_;
+	my @l2 = reverse @$l;
+	return join(' ', reverse @{$class->compress_list(\@l2, $keep)});
+}
+
 sub expanded
 {
 	my ($self, $v, $extra) = @_;
-- 
cgit v1.2.3