A mistake. The change
for (i=0;i<avail;i++) {
if (*b->ptr == 0x41) {
*b->ptr++ = 0x42;
break;
}
}
doesnt serve my purpose.
Just as I put the *b->ptr in the condition of the for
loop as mentioned earlier, gmake fails.
Following is the output of gmake :
--------------------------------------------------------
`sh cflags "optimize='-g'" perlio.o` perlio.c
CCCMD = c89 -DPERL_CORE -c -DMAXSIG=38
-DOEMVS -D_OE_SOCKETS -D_XOPEN_
SOURCE_EXTENDED -D_ALL_SOURCE -DYYDYNAMIC -DDEBUGGING
-I/usr/local/include -W 0,f
loat(ieee) -g
rm -f libperl.a
/bin/ar rcu libperl.a perl.o gv.o toke.o perly.o op.o
pad.o regcomp.o dump.o uti
l.o mg.o reentr.o hv.o av.o run.o pp_hot.o sv.o pp.o
scope.o pp_ctl.o pp_sys.o do
op.o doio.o regexec.o utf8.o taint.o deb.o universal.o
xsutils.o globals.o perlio
.o perlapi.o numeric.o locale.o pp_pack.o pp_sort.o
c89 -Wl,EDIT=NO -L/usr/local/lib -o miniperl \
miniperlmain.o opmini.o libperl.a -lm -lc
./miniperl -w -Ilib -MExporter -e '<?>' || gmake
minitest
Exporter.pm did not return a true value.
BEGIN failed--compilation aborted.
gmake[1]: Entering directory `/perl-5.8.6'
gmake[2]: Entering directory `/perl-5.8.6'
./miniperl -Ilib configpm configpm.tmp
sh mv-if-diff configpm.tmp lib/Config.pm
mv: configpm.tmp: EDC5129I No such file or directory.
gmake[2]: *** [lib/Config.pm] Error 1
gmake[2]: Leaving directory `/perl-5.8.6'
gmake[1]: [minitest.prep] Error 2 (ignored)
You may see some irrelevant test failures if you have
been unable
to build lib/Config.pm, lib/lib.pm or the Unicode data
files.
cd t && (rm -f perl; /bin/ln -s ../miniperl perl) \
&& ./perl TEST -minitest base/*.t comp/*.t
cmd/*.t run/*.t io/*.t op/*.t
uni/*.t </dev/tty
gmake[1]: Leaving directory `/perl-5.8.6'
./miniperl -Ilib configpm configpm.tmp
sh mv-if-diff configpm.tmp lib/Config.pm
mv: configpm.tmp: EDC5129I No such file or directory.
gmake: *** [lib/Config.pm] Error 1
------------------------------------------------------
Thanks,
Rajarshi.
Note: forwarded message attached.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com --- Begin Message ---
--- [EMAIL PROTECTED] wrote:
> rajarshi das <[EMAIL PROTECTED]> wrote on 07/11/2005
> 07:55:55 AM:
>
> > Hi,
> > Here's a build failure that I am facing on z/OS
> > (perl-5.8.6).
> >
> > I do the following steps :
> >
> > 1) sh Configure -Dmake=gmake
> > 2) modify sv.c
> > 3) gmake
> > gmake[1]: Leaving directory `/perl-5.8.6'
> > ./miniperl -Ilib configpm configpm.tmp
> > sh mv-if-diff configpm.tmp lib/Config.pm
> > mv: configpm.tmp: EDC5129I No such file or
> directory.
> > gmake: *** [lib/Config.pm] Error 1
> > ISLDEV2:/perl-5.8.6: > ls -l lib/Config.pm
> > ls: FSUM6785 File or directory "lib/Config.pm" is
> not
> > found
> >
> > Why does the gmake fail ?
>
> If you omit step 2 does the make fail? Note that at
> that point
> make is running miniperl in order to run create the
> configpm.tmp
> file. You have not shown what the result of ls
> configpm.tmp is
> nor have you indicated what changes you made to
> sv.c, but it
> does appear that miniperl does not produce the file.
>
If I omit step 2, the make completes fine.
$ ls configpm.tmp
ls: FSUM6785 File or directory "configpm.tmp" is not
found
The change that I am working on is now in perlio.c
only instead of sv.c.
The two changes that I made to perlio.c are :
in PerlIOBuf_fill()
#ifdef EBCDIC
int i;
#endif
also at line no. 3609,
else {
avail = PerlIO_read(n, b->ptr, b->bufsiz);
#ifdef EBCDIC
for(i=0;i<avail;i++,b->ptr++) {
if (*b->ptr == 0x41) {
*b->ptr = 0x42;
break;
}
}
# endif
Instead of the above, if I modify as
#ifdef EBCDIC
for(i=0;i<avail;i++) {
if (*b->ptr == 0x41) {
*b->ptr++ = 0x42;
break;
}
}
the gmake runs through (at least it crosses the
configpm.tmp part where it was stuck previously).
Any thoughts as to why this happens ?
Thanks,
Rajarshi.
>
> Peter Prymmer
>
>
__________________________________
Discover Yahoo!
Get on-the-go sports scores, stock quotes, news and more. Check it out!
http://discover.yahoo.com/mobile.html
--- End Message ---
