X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2Fwith.pm;h=cbc8f3df3c69d23abacd6c332f44666bed3cd582;hb=38b20c3c8c5fefb9be82c3d5e49adab22e01697f;hp=77bd5b967b97a365c49a00ea923097cfd534a4d9;hpb=74a3737416f7fc290a923553003e0fffbfacca3b;p=perl%2Fmodules%2Fwith.git

diff --git a/lib/with.pm b/lib/with.pm
index 77bd5b9..cbc8f3d 100644
--- a/lib/with.pm
+++ b/lib/with.pm
@@ -18,11 +18,11 @@ with - Lexically call methods with a default object.
 
 =head1 VERSION
 
-Version 0.02
+Version 0.03
 
 =cut
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 =head1 WARNING
 
@@ -299,7 +299,7 @@ sub import {
               : exists $core{$1} ? corewrap $1, $2
                                  : subwrap $1, $2, prototype($caller.'::'.$1)
    /sexg;
-  s/\Q$;\E(\C{4})\Q$;\E/${$components[unpack('N',$1)]}/g;
+  s/\Q$;\E([\x00-\xff]{4})\Q$;\E/${$components[unpack('N',$1)]}/g;
   $_ .= $lastline if defined $lastline;
   return $count;
  }