--- cvs-head/lib/WAIT/Filter.pm	2000/11/13 10:44:03	40
+++ cvs-head/lib/WAIT/Filter.pm	2000/11/13 20:25:49	41
@@ -81,7 +81,10 @@
     no strict 'refs';
     *$func = sub {
       # Courtesy JHI
-      $_[0] =~ s{([\xC0-\xDF])([\x80-\xBF])}{chr(ord($1)<<6&0xC0|ord($2)&0x3F)}eg; #};
+      my $s = shift;
+      $s =~ s{([\xC0-\xDF])([\x80-\xBF])}
+             {chr(ord($1)<<6&0xC0|ord($2)&0x3F)}eg;
+      $s;
     };
     goto \&$func;
   }