[Bps-public-commit] net-lighthouse branch, master, updated. 077f148a5b48dabf1153f33ac61d417505b2e2e6

[sunnavy at bestpractical.com]

The branch, master has been updated
       via  077f148a5b48dabf1153f33ac61d417505b2e2e6 (commit)
      from  19efaf0228dd7d60732ced2f0f2dfb0cdc1262d3 (commit)

Summary of changes:
 lib/Net/Lighthouse/Project.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 077f148a5b48dabf1153f33ac61d417505b2e2e6
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Tue Sep 1 16:37:40 2009 +0800

    small regex fix

diff --git a/lib/Net/Lighthouse/Project.pm b/lib/Net/Lighthouse/Project.pm
index 7686be0..b7b0654 100644
--- a/lib/Net/Lighthouse/Project.pm
+++ b/lib/Net/Lighthouse/Project.pm
@@ -57,7 +57,7 @@ sub load {
     validate_pos( @_, { type => SCALAR, regex => qr/^\d+|\w+$/ } );
     my $id = shift;
 
-    if ( $id !~ /^\d$/ ) {
+    if ( $id !~ /^\d+$/ ) {
 
         # so we got a project name, let's find it
         my ( $project ) = grep { $_->name eq $id } $self->list;

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