Context Navigation

Changeset 35491 for lang/perl

Timestamp:

10/01/09 18:31:46 (4 years ago)

Author:

vkgtaro

Message:

カタカナルールに半角英数許可が通せなかったので修正。

allow:
  - '\s+'

とかでもいいんだけども

Location:

lang/perl/FormValidator-LazyWay/trunk

Files:

r17343	r35491
16	16	$allow = Encode::decode('utf8', $allow)
17	17	if $args->{bytes};
18		$text =~ s{$allow}{}~~xms~~g;
	18	$text =~ s{$allow}{}g;
19	19	}
20	20	}
…	…
44	44	$allow = Encode::decode('utf8', $allow)
45	45	if $args->{bytes};
46		$text =~ s{$allow}{}~~xms~~g;
	46	$text =~ s{$allow}{}g;
47	47	}
48	48	}