diff options
| author | fukachan <fukachan> | 2003-01-25 09:14:04 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-01-25 09:14:04 +0000 |
| commit | a43a66146f737a410a9b8008d4d3eccb9308fc8f (patch) | |
| tree | edf8577f08dc0121b07024dc929b1219dd99281a /fml/lib/FML/Command/Admin/file.pm | |
| parent | cd4628ec752ca82dcee613bafada957c18d0501c (diff) | |
| download | fml8-a43a66146f737a410a9b8008d4d3eccb9308fc8f.tar.gz fml8-a43a66146f737a410a9b8008d4d3eccb9308fc8f.tar.bz2 fml8-a43a66146f737a410a9b8008d4d3eccb9308fc8f.zip | |
implement FML::Restriction::Base::regexp_match() and
switched to use it.
Diffstat (limited to 'fml/lib/FML/Command/Admin/file.pm')
| -rw-r--r-- | fml/lib/FML/Command/Admin/file.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/fml/lib/FML/Command/Admin/file.pm b/fml/lib/FML/Command/Admin/file.pm index 77167fb4..43860506 100644 --- a/fml/lib/FML/Command/Admin/file.pm +++ b/fml/lib/FML/Command/Admin/file.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: file.pm,v 1.8 2002/12/20 03:40:12 fukachan Exp $ +# $FML: file.pm,v 1.9 2003/01/03 07:05:11 fukachan Exp $ # package FML::Command::Admin::file; @@ -73,8 +73,7 @@ sub process my @argv = (); use FML::Restriction::Base; - my $safe = new FML::Restriction::Base; - my $filereg = $safe->regexp( 'file' ); + my $safe = new FML::Restriction::Base; # argv = command subcommand args ... = command options my ($subcommand, @args)= @$options; @@ -83,7 +82,7 @@ sub process $subcommand eq 'delete' || $subcommand eq 'unlink') { for my $x (@args) { - if ($x =~ /^($filereg)$/) { + if ($safe->regexp_match('file', $x)) { push(@argv, $x); } } |