[Bps-public-commit] net-lighthouse branch, master, updated. 30a4872ab4803d98547036500d5b5e668b93aac5

[sunnavy at bestpractical.com]

The branch, master has been updated
       via  30a4872ab4803d98547036500d5b5e668b93aac5 (commit)
      from  36a381c93987818d25f40ef5e723727cd2a95e4a (commit)

Summary of changes:
 lib/Net/Lighthouse/Util.pm |    4 +++-
 t/08-token.t               |    1 +
 2 files changed, 4 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 30a4872ab4803d98547036500d5b5e668b93aac5
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Mon Aug 31 14:37:03 2009 +0800

    small fixes

diff --git a/lib/Net/Lighthouse/Util.pm b/lib/Net/Lighthouse/Util.pm
index 12e4fac..411469d 100644
--- a/lib/Net/Lighthouse/Util.pm
+++ b/lib/Net/Lighthouse/Util.pm
@@ -47,7 +47,9 @@ sub translate_from_xml {
 sub datetime_from_string {
     my $class  = shift;
     my $string = shift;
-    if ( $string =~ /(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):(\d{2})Z/ ) {
+    if (   $string
+        && $string =~ /(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):(\d{2})Z/ )
+    {
 
         #    2009-06-01T13:00:10Z
         return DateTime->new(
diff --git a/t/08-token.t b/t/08-token.t
index 6023911..c05203c 100644
--- a/t/08-token.t
+++ b/t/08-token.t
@@ -2,6 +2,7 @@ use strict;
 use warnings;
 
 use Test::More tests => 19;
+use DateTime;
 
 use_ok('Net::Lighthouse::Token');
 can_ok( 'Net::Lighthouse::Token', 'new' );

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