diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-09-19 03:37:19 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-09-19 06:56:36 +0000 |
| commit | fc8cd66c26827f6c2ee1aa00ab2d3b3c320a4a28 (patch) | |
| tree | b426e51c41b332c31c05ec65e7570a4cc620f20c /t/lib/Cname.pm | |
| parent | a7ae1e4a956bbd5ffa44d286e0591bf4c0e7c341 (diff) | |
| download | perl-fc8cd66c26827f6c2ee1aa00ab2d3b3c320a4a28.tar.gz | |
Re: \N{...} in regular expression [PATCH]
Message-ID: <9b18b3110609181637m796d6c16o1b2741edc5f09eb2@mail.gmail.com>
p4raw-id: //depot/perl@28868
Diffstat (limited to 't/lib/Cname.pm')
| -rw-r--r-- | t/lib/Cname.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/t/lib/Cname.pm b/t/lib/Cname.pm new file mode 100644 index 0000000000..d4b8a9ea4d --- /dev/null +++ b/t/lib/Cname.pm @@ -0,0 +1,22 @@ +package Cname; +our $Evil='A'; + +sub translator { + my $str = shift; + if ( $str eq 'EVIL' ) { + (my $c=substr("A".$Evil,-1))++; + my $r=$Evil; + $Evil.=$c; + return $r; + } + if ( $str eq 'EMPTY-STR') { + return ""; + } + return $str; +} + +sub import { + shift; + $^H{charnames} = \&translator; +} +1; |