Changeset 16354 for trunk/Nebulous/lib

Timestamp:

Feb 7, 2008, 12:18:51 PM (18 years ago)

Author:

jhoblitt

Message:

pickup test DB settings from the env.

Location:

trunk/Nebulous/lib/Nebulous

Files:

• Server.pm (modified) (2 diffs)
• Util.pm (modified) (2 diffs)

trunk/Nebulous/lib/Nebulous/Server.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Server.pm,v 1.51 2008-01-31 02:26:33 jhoblitt Exp $
+# $Id: Server.pm,v 1.52 2008-02-07 22:18:51 jhoblitt Exp $
 
 package Nebulous::Server;
@@ -861 +861 @@
     $log->debug( "entered - @_" );
 
+    unless ($pattern) {
+        $log->debug( "leaving" );
+        return [];
+    }
+
+    # attempt to strip off neb:// if it exists
+    if ($pattern =~ m|^neb:|) {
+        $pattern = parse_neb_key($pattern);        
+    }
+
     my $query;
-
     eval {
         $query = $db->prepare_cached( $sql->find_objects );

trunk/Nebulous/lib/Nebulous/Util.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Util.pm,v 1.9 2008-01-23 22:46:44 jhoblitt Exp $
+# $Id: Util.pm,v 1.10 2008-02-07 22:18:51 jhoblitt Exp $
 
 package Nebulous::Util;
@@ -83 +83 @@
 {
     my $text = shift;
+    return unless defined $text;
 
     # white space is not allowed