diff options
| author | fukachan <fukachan> | 2003-01-03 07:05:34 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-01-03 07:05:34 +0000 |
| commit | 78d7347dc5de928dcc091d6110b5029558f0d7d2 (patch) | |
| tree | c2001a86cff999952a708b872979cbcfac25e0d1 | |
| parent | 36621eb98b3d05a6271ae5c339f6df3723fcb3b6 (diff) | |
| download | fml8-78d7347dc5de928dcc091d6110b5029558f0d7d2.tar.gz fml8-78d7347dc5de928dcc091d6110b5029558f0d7d2.tar.bz2 fml8-78d7347dc5de928dcc091d6110b5029558f0d7d2.zip | |
modified use FML::Restriction::Base->regexp().
| -rw-r--r-- | fml/lib/FML/Error.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/fml/lib/FML/Error.pm b/fml/lib/FML/Error.pm index e9b0cbf3..5f366f4e 100644 --- a/fml/lib/FML/Error.pm +++ b/fml/lib/FML/Error.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: Error.pm,v 1.8 2002/12/18 04:24:26 fukachan Exp $ +# $FML: Error.pm,v 1.9 2003/01/03 03:49:30 fukachan Exp $ # package FML::Error; @@ -119,8 +119,7 @@ sub remove_bouncers use FML::Restriction::Base; my $safe = new FML::Restriction::Base; - my $regexp = $safe->basic_variable(); - my $addrreg = $regexp->{ address }; + my $addrreg = $safe->regexp( 'address' ); ADDR: for my $addr (@$list) { @@ -161,8 +160,7 @@ sub deluser use FML::Restriction::Base; my $safe = new FML::Restriction::Base; - my $regexp = $safe->basic_variable(); - my $addrreg = $regexp->{ address }; + my $addrreg = $safe->regexp( 'address' ); # check if $address is a safe string. if ($address =~ /^($addrreg)$/) { |