From: Vincent Pit <perl@profvince.com>
Date: Sun, 23 Jul 2017 21:16:40 +0000 (+0200)
Subject: Don't use \C anymore
X-Git-Tag: v0.03~2
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=06d44e8038a4d9ed131512ce088cedfe1e56c5b1;p=perl%2Fmodules%2Fwith.git

Don't use \C anymore
---

diff --git a/lib/with.pm b/lib/with.pm
index 77bd5b9..ce75b8e 100644
--- a/lib/with.pm
+++ b/lib/with.pm
@@ -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;
  }