Here's the diff output :
--- utf8.c 2004-11-17 18:22:09.000000000 +0530
+++ utf8.c.1 2005-07-26 20:50:11.000000000 +0530
@@ -363,7 +363,9 @@ Perl_utf8n_to_uvuni(pTHX_ U8 *s,
STRLEN
warning = UTF8_WARN_EMPTY;
goto malformed;
}
-
+#ifdef EBCDIC
+ uv = NATIVE_TO_UTF(uv);
+#endif
if (UTF8_IS_INVARIANT(uv)) {
if (retlen)
*retlen = 1;
Thanks,
Rajarshi.
--- "H.Merijn Brand" <[EMAIL PROTECTED]> wrote:
> On Tue, 26 Jul 2005 07:55:21 -0700 (PDT), rajarshi
> das <[EMAIL PROTECTED]>
> wrote:
>
> >
> >
> > --- Nicholas Clark <[EMAIL PROTECTED]> wrote:
> >
> > > On Tue, Jul 26, 2005 at 07:22:55AM -0700,
> rajarshi
> > > das wrote:
> > > > Hi,
> > > > I made the following modifications to utf8.c :
> > > > #ifdef EBCDIC
> > > > uv = NATIVE_TO_UTF(uv);
> > > > #endif
> > >
> > > Where in utf8.c? Your description of what you
> > > changed is inadequate for
> > > anyone else to understand the context of your
> > > change.
> > >
> > The change is in the fn Perl_utf8n_to_uvuni :
> > -------------------
> > .....
> > ....
>
> Are you able to generate unwrapped unified diffs?
> You are posting in a VERY narrow wrapping making
> code snippets malformed and
> unreadable
>
> # diff -pu file.org file.new
>
> is the preferred format
>
> > #define UTF8_WARN_LONG 8
> > #define UTF8_WARN_FFFF 9
> /*
> > Also FFFE. */
> >
> > if (curlen == 0 &&
> > !(flags & UTF8_ALLOW_EMPTY)) {
> > warning = UTF8_WARN_EMPTY;
> > goto malformed;
> > }
> > #ifdef EBCDIC /* the change */
> > uv = NATIVE_TO_UTF(uv);
> > #endif /* the change ends here */
> >
> > if (UTF8_IS_INVARIANT(uv)) {
> > if (retlen)
> > *retlen = 1;
> > return (UV) (NATIVE_TO_UTF(*s));
> > }
> > ....
> > ...
> > ----------------------------------------
>
> --
> H.Merijn Brand Amsterdam Perl Mongers
> (http://amsterdam.pm.org/)
> using Perl 5.6.2, 5.8.0, 5.8.5, & 5.9.2 on HP-UX
> 10.20, 11.00 & 11.11,
> AIX 4.3 & 5.2, SuSE 9.2 & 9.3, and Cygwin.
> http://www.cmve.net/~merijn
> Smoking perl: http://www.test-smoke.org, perl QA:
> http://qa.perl.org
> reports to: [EMAIL PROTECTED],
> perl-qa@perl.org
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
