diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 2007-05-12 14:36:57 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 2007-05-12 14:36:57 +0000 |
| commit | b043a73bf87de1d4043ffdd94be3e5ce8718088f (patch) | |
| tree | e2727739a7202dd3e3614b2610e4c4a894678f17 /usr.sbin | |
| parent | 861e6a7f0cd5109d020565ea6e6c96e18c57c23e (diff) | |
oops, make the object variant functional
Diffstat (limited to 'usr.sbin')
| -rw-r--r-- | usr.sbin/pkg_add/OpenBSD/PkgSpec.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/PkgSpec.pm b/usr.sbin/pkg_add/OpenBSD/PkgSpec.pm index 77bd0548350..82cfb3b71cb 100644 --- a/usr.sbin/pkg_add/OpenBSD/PkgSpec.pm +++ b/usr.sbin/pkg_add/OpenBSD/PkgSpec.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: PkgSpec.pm,v 1.5 2007/05/12 14:07:17 espie Exp $ +# $OpenBSD: PkgSpec.pm,v 1.6 2007/05/12 14:36:56 espie Exp $ # # Copyright (c) 2003-2005 Marc Espie <espie@openbsd.org> # @@ -215,7 +215,7 @@ sub match_ref my ($self, $r) = @_; my @l = (); - for my $subpattern (ref($self) ? $self->{patterns} : split /\|/, $self) { + for my $subpattern (ref($self) ? @{$self->{patterns}} : split /\|/, $self) { push(@l, subpattern_match($subpattern, $r)); } return @l; |