Minor fix

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