Prevent the pragmas from ${^OPEN} propagated to %^H from deparsing.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 18 Sep 2007 14:10:34 +0000 (14:10 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 18 Sep 2007 14:10:34 +0000 (14:10 +0000)
commit7fa653d884dcfb46cd756ee6975e6ee5b536f7ec
tree9bad49ea8c831ac3ae2624c48dca89f535ad3f5b
parent8d115822ac460e3494c9fe3f3452d7331adea3d7
Prevent the pragmas from ${^OPEN} propagated to %^H from deparsing.
This stops test failures when perl is run with -C under utf-8 locales.
However this is only a partial solution, since it will prevent the
open pragma from being properly deparsed. Probably ${^OPEN} should
be handled separately.

p4raw-id: //depot/perl@31894
ext/B/B/Deparse.pm