diff options
| author | fukachan <fukachan> | 2005-12-08 10:05:57 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-12-08 10:05:57 +0000 |
| commit | c59b0467a4e6c084cddaf4546fecb7d5f7cee348 (patch) | |
| tree | 46992f2aaeade29d59c30895386d269290de8c31 /fml/lib/IO/Adapter.pm | |
| parent | 7d1e13acc2da0208b8af4f56de838c77c24a6829 (diff) | |
| download | fml8-c59b0467a4e6c084cddaf4546fecb7d5f7cee348.tar.gz fml8-c59b0467a4e6c084cddaf4546fecb7d5f7cee348.tar.bz2 fml8-c59b0467a4e6c084cddaf4546fecb7d5f7cee348.zip | |
pcre: support
Diffstat (limited to 'fml/lib/IO/Adapter.pm')
| -rw-r--r-- | fml/lib/IO/Adapter.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/fml/lib/IO/Adapter.pm b/fml/lib/IO/Adapter.pm index b0b9c08d..733237fc 100644 --- a/fml/lib/IO/Adapter.pm +++ b/fml/lib/IO/Adapter.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: Adapter.pm,v 1.37 2005/08/23 08:39:09 fukachan Exp $ +# $FML: Adapter.pm,v 1.38 2005/08/23 09:56:13 fukachan Exp $ # package IO::Adapter; @@ -171,6 +171,11 @@ sub new $me->{_type} = 'file'; $pkg = 'IO::Adapter::File'; } + elsif ($map =~ /pcre:(\S+)/) { + $me->{_file} = $1; + $me->{_type} = 'file'; + $pkg = 'IO::Adapter::PCRE'; + } elsif ($map =~ /unix\.group:(\S+)/) { $me->{_name} = $1; $me->{_type} = 'unix.group'; |