diff options
| -rw-r--r-- | lib/SlackBuild/Registry/Backend/FS.pm | 3 | ||||
| -rw-r--r-- | lib/SlackBuild/Registry/Record.pm | 7 | ||||
| -rwxr-xr-x[-rw-r--r--] | slackbuilder | 0 |
3 files changed, 6 insertions, 4 deletions
diff --git a/lib/SlackBuild/Registry/Backend/FS.pm b/lib/SlackBuild/Registry/Backend/FS.pm index 9d84370..5788ead 100644 --- a/lib/SlackBuild/Registry/Backend/FS.pm +++ b/lib/SlackBuild/Registry/Backend/FS.pm @@ -58,10 +58,9 @@ sub lookup { my $pat = "$pkg-*-*-*"; my $rx = '^' . qr($pkg) . '-' - . '(?<version>\d+(\.\d+)+.*?)-(?<arch>' + . '(?<version>\d+(?:\.\d+)*.*?)-(?<arch>' . regexp_opt(@architectures) .= ')-(?<build>\d+)(?<rest>.*)$'; - my @result = sort { my $d; if ($d = ($a->package || '') cmp ($b->package || '')) { diff --git a/lib/SlackBuild/Registry/Record.pm b/lib/SlackBuild/Registry/Record.pm index 22c6a3c..130dd16 100644 --- a/lib/SlackBuild/Registry/Record.pm +++ b/lib/SlackBuild/Registry/Record.pm @@ -47,9 +47,12 @@ sub store { sub as_string { my $self = shift; + use Data::Dumper; + local $Data::Dumper::Indent = 0; + local $Data::Dumper::Terse = 1; return $self->package . '-' - . ($self->version || '*') . '-' - . ($self->arch || '*') . '-' + . ($self->version ? Dumper($self->version) : '*') . '-' + . ($self->arch ? Dumper($self->arch) : '*') . '-' . ($self->build || '1'); } diff --git a/slackbuilder b/slackbuilder index bf4c081..bf4c081 100644..100755 --- a/slackbuilder +++ b/slackbuilder |