Changeset 6583

Timestamp:

Mar 14, 2006, 12:40:15 PM (20 years ago)

Author:

jhoblitt

Message:

change http URI validation to allow relative paths (e.g. 'localhost')

File:

• trunk/DataStore/lib/DataStore/Record.pm (modified) (3 diffs)

trunk/DataStore/lib/DataStore/Record.pm

@@ -1 +1 @@
 # 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 +14 @@
 
 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 +60 @@
                 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/',