mhonarc-commits
[Top] [All Lists]

CVS: mhonarc/MHonArc/lib/MHonArc CharEnt.pm,1.16,1.17

2010-12-31 12:23:06
Update of mhonarc/MHonArc/lib/MHonArc
Modified Files:
	CharEnt.pm 
Log Message:
Bug #26577: Added Perl 5.10 check for unpack call so unpack is called
with correct template based on version of Perl.


======================================================================
FILE: mhonarc/MHonArc/lib/MHonArc/CharEnt.pm
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/MHonArc/CharEnt.pm?rev=1.17>

<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/MHonArc/CharEnt.pm.diff?r1=1.16&r2=1.17&diff_format=h>
--- CharEnt.pm	22 May 2005 21:14:33 -0000	1.16
+++ CharEnt.pm	31 Dec 2010 18:23:02 -0000	1.17
@@ -179,5 +179,6 @@
             $utf8_re_lax
         }{
-            $char = unpack('U0U*',$1);
+            # Bug #26577: Perl 5.10 changed unpack behavior
+            $char = ($] >= 5.010)? unpack('C0U*',$1): unpack('U0U*',$1);
             if ($malformed ||
                   (($char & 0xFFFE) == 0xFFFE) ||

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-COMMITS