diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 2010-11-27 11:55:15 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 2010-11-27 11:55:15 +0000 |
| commit | c84ae830cf8f24e2bd8a2207e66f084e80bd8405 (patch) | |
| tree | 5821368c0e37bfb38d981480ee3da84c62886772 | |
| parent | 9009376c80642bedd90e8861c69ca83d73527342 (diff) | |
zap old-style .>= specs
| -rw-r--r-- | usr.sbin/pkg_add/OpenBSD/LibSpec/Build.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/LibSpec/Build.pm b/usr.sbin/pkg_add/OpenBSD/LibSpec/Build.pm index 06859003a20..4dc3dbc7cc9 100644 --- a/usr.sbin/pkg_add/OpenBSD/LibSpec/Build.pm +++ b/usr.sbin/pkg_add/OpenBSD/LibSpec/Build.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: Build.pm,v 1.6 2010/11/14 07:24:06 espie Exp $ +# $OpenBSD: Build.pm,v 1.7 2010/11/27 11:55:14 espie Exp $ # # Copyright (c) 2010 Marc Espie <espie@openbsd.org> # @@ -115,9 +115,9 @@ sub new_from_string my ($class, $string) = @_; $string =~ s/\.$//; - if (my ($stem, $strict, $major, $minor) = $string =~ m/^(.*?)\.?(\>?)\=(\d+)\.(\d+)$/o) { + if (my ($stem, $strict, $major, $minor) = $string =~ m/^(.*?)(\>?)\=(\d+)\.(\d+)$/o) { return $class->new_object($stem, $strict, $major, $minor); - } elsif (($stem, $strict, $major) = $string =~ m/^(.*?)\.?(\>?)\=(\d+)$/o) { + } elsif (($stem, $strict, $major) = $string =~ m/^(.*?)(\>?)\=(\d+)$/o) { return $class->new_object($stem, $strict, $major, 0); } else { return $class->new_object($string, '>', 0, 0); |