diff options
| author | fukachan <fukachan> | 2002-07-02 04:01:45 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-02 04:01:45 +0000 |
| commit | 038bae39f540d0383ea41e15e0d4bb46c66f1662 (patch) | |
| tree | 066f32fbfd07be724cac8211475b9cd63c7d213d /fml | |
| parent | d5468f0180ac22d6698599d2cfdf2ea3e978ec01 (diff) | |
| download | fml8-038bae39f540d0383ea41e15e0d4bb46c66f1662.tar.gz fml8-038bae39f540d0383ea41e15e0d4bb46c66f1662.tar.bz2 fml8-038bae39f540d0383ea41e15e0d4bb46c66f1662.zip | |
clean up. fix comments
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Restriction/Base.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/fml/lib/FML/Restriction/Base.pm b/fml/lib/FML/Restriction/Base.pm index 9808bb68..49c9a911 100644 --- a/fml/lib/FML/Restriction/Base.pm +++ b/fml/lib/FML/Restriction/Base.pm @@ -3,7 +3,7 @@ # Copyright (C) 2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Base.pm,v 1.11 2002/06/22 14:22:44 fukachan Exp $ +# $FML: Base.pm,v 1.12 2002/06/25 07:48:27 fukachan Exp $ # package FML::Restriction::Base; @@ -26,6 +26,9 @@ FML::Restriction::Base -- define safe data representations FML::Restriction::Base provides data regexp considered as safe. +ALL FML MODULES SHOULD INHERIT THIS MODULE if it needs to check +whether some variable is safe or not. + =head1 METHODS =head2 C<new($args)> @@ -42,7 +45,7 @@ usual constructor. # Return Value: OBJ sub new { - my ($self) = @_; + my ($self, $args) = @_; my ($type) = ref($self) || $self; my $me = {}; return bless $me, $type; @@ -95,9 +98,9 @@ my %basic_variable = 'article_id' => '\d+', # file, directory et.al. - 'directory' => '[-a-zA-Z0-9_]+', - 'file' => '[-a-zA-Z0-9_]+', - 'map' => '[-a-zA-Z0-9_]+', + 'directory' => '[-A-Za-z0-9_]+', + 'file' => '[-A-Za-z0-9_]+', + 'map' => '[-A-Za-z0-9_]+', ); |