Changeset 6543

Timestamp:

Mar 7, 2006, 4:12:17 PM (20 years ago)

Author:

jhoblitt

Message:

properly validate uri param

File:

• trunk/DataStore/lib/DataStore/File.pm (modified) (2 diffs)

trunk/DataStore/lib/DataStore/File.pm

@@ -1 +1 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: File.pm,v 1.1 2006-02-28 03:03:14 jhoblitt Exp $
+# $Id: File.pm,v 1.2 2006-03-08 02:12:17 jhoblitt Exp $
 
 package DataStore::File;
@@ -61 +61 @@
     my %p = validate(@_,
         {
-            uri         => 1,
+            uri             => {
+                type        => SCALAR,
+                callbacks   => {
+                    'is valid uri filename' => sub { $_[0] !~ m|/$| },
+
+                },
+            },
             fileid      => 1,
             bytes       => 1,