diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 2006-12-04 11:29:03 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 2006-12-04 11:29:03 +0000 |
| commit | 55899a0de13423b13a2121ec51128031dd5a6936 (patch) | |
| tree | 468641564717c42445e2d31651ad3dfcfd7c94ef /usr.sbin | |
| parent | ddac243616996662a06b87177cce803a5c62ffba (diff) | |
add rcompress method
Diffstat (limited to 'usr.sbin')
| -rw-r--r-- | usr.sbin/pkg_add/OpenBSD/PkgConfig.pm | 9 |
1 files changed, 8 insertions, 1 deletions
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) = @_; |