X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2Fwith.pm;h=ce75b8ed8c8658fa3a7d6dfb1b55e8eaf7eda3d0;hb=06d44e8038a4d9ed131512ce088cedfe1e56c5b1;hp=4bef4cec12d04c77997b71cb32eeae2753f2c3c6;hpb=5d3ec9b6f2a27ddb9a986a67cd428df2340af986;p=perl%2Fmodules%2Fwith.git

diff --git a/lib/with.pm b/lib/with.pm
index 4bef4ce..ce75b8e 100644
--- a/lib/with.pm
+++ b/lib/with.pm
@@ -24,6 +24,12 @@ Version 0.02
 
 our $VERSION = '0.02';
 
+=head1 WARNING
+
+This module was an early experiment which turned out to be completely unpractical.
+Therefore its use is officially B<deprecated>.
+Please don't use it, and don't hesitate to contact me if you want to reuse the namespace.
+
 =head1 SYNOPSIS
 
     package Deuce;
@@ -293,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;
  }
@@ -384,7 +390,7 @@ A fair part of this module is widely inspired from L<Filter::Simple> (especially
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2008 Vincent Pit, all rights reserved.
+Copyright 2008,2017 Vincent Pit, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.