Index: /trunk/DataStore/lib/DataStore/Record.pm
===================================================================
--- /trunk/DataStore/lib/DataStore/Record.pm	(revision 6582)
+++ /trunk/DataStore/lib/DataStore/Record.pm	(revision 6583)
@@ -1,5 +1,5 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: Record.pm,v 1.3 2006-02-28 03:44:32 jhoblitt Exp $
+# $Id: Record.pm,v 1.4 2006-03-14 22:40:15 jhoblitt Exp $
 
 package DataStore::Record;
@@ -14,5 +14,5 @@
 
 use Carp qw( carp croak );
-use Data::Validate::URI qw( is_http_uri );
+use Data::Validate::URI qw( is_uri );
 use Params::Validate qw( validate_with validate SCALAR );
 
@@ -60,5 +60,6 @@
                 type        => SCALAR,
                 callbacks   => {
-                    'is valid http uri' => sub { is_http_uri($_[0]) },
+                    'is valid http uri' =>
+                        sub { is_uri($_[0]) and $_[0] =~ /^http:/ },
                 },
                 default =>  'http://example.org/',