Index: /trunk/DataStore/lib/DataStore/File/Parser.pm
===================================================================
--- /trunk/DataStore/lib/DataStore/File/Parser.pm	(revision 6608)
+++ /trunk/DataStore/lib/DataStore/File/Parser.pm	(revision 6609)
@@ -1,5 +1,5 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: Parser.pm,v 1.8 2006-03-16 21:48:50 jhoblitt Exp $
+# $Id: Parser.pm,v 1.9 2006-03-16 22:00:29 jhoblitt Exp $
 
 package DataStore::File::Parser;
@@ -14,4 +14,5 @@
 
 use Carp qw( carp );
+use Data::Validate::URI qw( is_uri ); 
 use DataStore::File;
 use Params::Validate qw( validate validate_pos SCALAR );
@@ -91,5 +92,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/',
Index: /trunk/DataStore/lib/DataStore/FileSet/Parser.pm
===================================================================
--- /trunk/DataStore/lib/DataStore/FileSet/Parser.pm	(revision 6608)
+++ /trunk/DataStore/lib/DataStore/FileSet/Parser.pm	(revision 6609)
@@ -1,5 +1,5 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: Parser.pm,v 1.10 2006-03-16 21:50:09 jhoblitt Exp $
+# $Id: Parser.pm,v 1.11 2006-03-16 22:00:29 jhoblitt Exp $
 
 package DataStore::FileSet::Parser;
@@ -14,5 +14,5 @@
 
 use Carp qw( carp );
-use Data::Validate::URI qw( is_http_uri );
+use Data::Validate::URI qw( is_uri );
 use DataStore::FileSet;
 use Params::Validate qw( validate validate_pos SCALAR);
@@ -90,5 +90,6 @@
                 type        => SCALAR,
                 callbacks   => {
-                    'is valid http uri' => sub { is_http_uri($_[0]) },
+                    'is valid http uri' =>
+                        sub { is_uri($_[0]) and $_[0] =~ /^http:/ },
                     'uri ends with /'   => sub { $_[0] =~ m|/$| },
                 },