On 11/19/2014 05:45 AM, Yaroslav Kuzmin wrote:
On z/OS  in perl  processing of script lib/sigtrap.pm it hangs

on string
107
s/([\N{U+80}-\N{U+FF}])/sprintf("M-%c",utf8::unicode_to_native(utf8::native_to_unicode(ord($1))&0177))/eg;


   in function S_regclass  overflow occurs in a loop variable.

patch attached

Thanks, applied to the EBCDIC branch, and pushed, rebased to current blead, along with some other things.
------------------------------------------------------------------------
  Yaroslav Kuzmin
Developer C/C++ ,z/OS , Linux
3 Zhukovskiy Street · Miass, Chelyabinsk region 456318 · Russia
Tel:  +7.922.2.38.33.38
Email: [email protected]
Web: www.rocketsoftware.com

================================
Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA
02451 ■ +1 800.966.3270 ■ +1 781.577.4321
Unsubscribe From Commercial Email – [email protected]
Manage Your Subscription Preferences -
http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
================================

This communication and any attachments may contain confidential
information of Rocket Software, Inc. All unauthorized use, disclosure or
distribution is prohibited. If you are not the intended recipient,
please notify Rocket Software immediately and destroy all copies of this
communication. Thank you.

Reply via email to