[Bps-public-commit] Prophet - A disconnected, replicated p2p database branch, master, updated. 896565451f2d0388abb3a1fe46f610e23e80cb82

[spang at bestpractical.com]

The branch, master has been updated
       via  896565451f2d0388abb3a1fe46f610e23e80cb82 (commit)
      from  af943cdca190a8ae05d57854a5957a5fc52951c9 (commit)

Summary of changes:
 lib/Prophet/CLIContext.pm |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit 896565451f2d0388abb3a1fe46f610e23e80cb82
Author: Christine Spang <spang at bestpractical.com>
Date:   Mon Feb 16 12:55:50 2009 -0500

    jesse doesn't like this being a constant

diff --git a/lib/Prophet/CLIContext.pm b/lib/Prophet/CLIContext.pm
index 87ae4c3..ab0e7f8 100644
--- a/lib/Prophet/CLIContext.pm
+++ b/lib/Prophet/CLIContext.pm
@@ -130,13 +130,13 @@ The regex to use for matching property key/value separators.
 
 use constant cmp_regex => '!=|<>|=~|!~|=|\bne\b';
 
-=head2 id_regex
+=head2 $ID_REGEX
 
 The regex to use for matching the id argument (luid / uuid).
 
 =cut
 
-use constant id_regex => '^(?:\d+|[0-9a-f]{8}\-[0-9a-f]{4}\-[0-9a-f]{4}\-[0-9a-f]{4}\-[0-9a-f]{12})$';
+our $ID_REGEX = '^(?:\d+|[0-9a-f]{8}\-[0-9a-f]{4}\-[0-9a-f]{4}\-[0-9a-f]{4}\-[0-9a-f]{12})$';
 
 =head2 setup_from_args
 
@@ -194,7 +194,7 @@ sub parse_args {
     push @primary, shift @args while ( $args[0] && $args[0] !~ /^-/ );
 
     # "ticket show 4" should DWIM and "ticket show --id=4"
-    my $id_re = $self->id_regex;
+    my $id_re = $ID_REGEX;
     $self->set_arg( id => pop @primary ) if @primary && $primary[-1] =~ /$id_re/i;
 
     my $collecting_props = 0;

-----------------------------------------------------------------------