diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 2010-01-09 17:42:26 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 2010-01-09 17:42:26 +0000 |
| commit | c8a56e9339064aeedad16623c7ebd41acdef7351 (patch) | |
| tree | 19ee881ad56d95813c78e1dccae5b25ea93bc525 /usr.sbin/pkg_add | |
| parent | 0977067e3ad52b57657ed2d332b6bcc8960c0583 (diff) | |
fix to_string
Diffstat (limited to 'usr.sbin/pkg_add')
| -rw-r--r-- | usr.sbin/pkg_add/OpenBSD/PackageName.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/PackageName.pm b/usr.sbin/pkg_add/OpenBSD/PackageName.pm index 02375f6f8fa..b5aea42cde5 100644 --- a/usr.sbin/pkg_add/OpenBSD/PackageName.pm +++ b/usr.sbin/pkg_add/OpenBSD/PackageName.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: PackageName.pm,v 1.38 2009/12/30 19:04:06 espie Exp $ +# $OpenBSD: PackageName.pm,v 1.39 2010/01/09 17:42:25 espie Exp $ # # Copyright (c) 2003-2007 Marc Espie <espie@openbsd.org> # @@ -207,7 +207,7 @@ sub make sub to_string { my $self = shift; - my $r = join('.', [$self->{deweys}]); + my $r = join('.', @{$self->{deweys}}); for my $suffix (qw(pl pre beta rc)) { if (defined $self->{$suffix}) { $r .= $suffix . $self->{$suffix}; @@ -446,7 +446,7 @@ sub to_string { my $o = shift; return join('-', $o->{stem}, $o->{version}->to_string, - $o->flavor_string); + sort keys %{$o->{flavors}}); } sub to_pattern |