]> git.vpit.fr Git - perl/modules/with.git/commitdiff
Don't use \C anymore
authorVincent Pit <perl@profvince.com>
Sun, 23 Jul 2017 21:16:40 +0000 (23:16 +0200)
committerVincent Pit <perl@profvince.com>
Sun, 23 Jul 2017 21:16:40 +0000 (23:16 +0200)
lib/with.pm

index 77bd5b967b97a365c49a00ea923097cfd534a4d9..ce75b8ed8c8658fa3a7d6dfb1b55e8eaf7eda3d0 100644 (file)
@@ -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;
  }