ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/selection
(Generate patch)

Comparing rxvt-unicode/src/perl/selection (file contents):
Revision 1.30 by elmex, Tue Jan 17 16:53:47 2006 UTC vs.
Revision 1.31 by root, Thu Jan 19 09:47:15 2006 UTC

… …
12sub on_init { 12sub on_init {
13 my ($self) = @_; 13 my ($self) = @_;
14 14
15 for (my $idx = 0; defined (my $res = $self->x_resource ("selection.pattern-$idx")); $idx++) { 15 for (my $idx = 0; defined (my $res = $self->x_resource ("selection.pattern-$idx")); $idx++) {
16 no re 'eval'; # just to be sure 16 no re 'eval'; # just to be sure
17 $res = utf8::encode $self->locale_decode ($res); 17 $res = $self->locale_decode ($res);
18 utf8::encode $res;
18 push @{ $self->{patterns} }, qr/$res/; 19 push @{ $self->{patterns} }, qr/$res/;
19 } 20 }
20 21
21 () 22 ()
22} 23}

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines