From swcxt@co.boulder.co.us

Perl release 5.6.0
Platform RS/6000, AIX 4.3.2 maint level 02
'myconfig' file attached

My ph files in the site_perl hierarchy are severely broken
by h2ph. When used, they produce messages similar to these​:

Prototype mismatch​: sub main​::_XOPEN_SOURCE vs () at (eval 7) line 1.
Prototype mismatch​: sub main​::_XOPEN_SOURCE_EXTENDED vs () at (eval 8) line 1.
Prototype mismatch​: sub main​::_XOPEN_SOURCE vs () at (eval 9) line 1.
Bareword found where operator expected at (eval 66) line 1, near "% &hd"
  (Missing operator before hd?)
Operator or semicolon missing before &hd at (eval 66) line 1.
Ambiguous use of & resolved as operator & at (eval 66) line 1.

These are (mostly) generated by the 'standards.ph' file, also attached.

I'd appreciate any clues as to how I might go about repairing this.
For a few old programs that I don't have time to rewrite, I have to
use the old 'chat2.pl' package, and so far my workaround is to invoke
these scripts using a cookie of '#!/usr/local/bin/perl5.003', since
that is the last release that didn't have this broken. (I can't even
get perl5.003_07 to compile on this platform. Bummer.)

--
Shane Castle | "Perfection, then, is finally achieved, not
Boulder County Info Svcs | when there is nothing left to add, but when
Boulder CO USA | there is nothing left to take away."
  | - Antoine de Saint-Exupery

From swcxt@co.boulder.co.us

#!/bin/sh

# This script is designed to provide a handy summary of the configuration
# information being used to build perl. This is especially useful if you
# are requesting help from comp.lang.perl.misc on usenet or via mail.

# Note that the text lines /^Summary of/ .. /^\s*$/ are copied into Config.pm.
cat <<'!NO!SUBS!'
Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration​:
  Platform​:
  osname=aix, osvers=4.3.2.0, archname=aix
  uname='aix bcx01 3 4 00002899a400 '
  config_args='-de'
  hint=previous, useposix=true, d_sigaction=define
  usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
  useperlio=undef d_sfio=undef uselargefiles=define
  use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler​:
  cc='cc', optimize='-O', gccversion=
  cppflags='-D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=16384 -I/usr/local/include -D_LARGE_FILES -qlonglong'
  ccflags ='-D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=16384 -I/usr/local/include -D_LARGE_FILES -qlonglong'
  stdchar='unsigned char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
  ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
  alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries​:
  ld='ld', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
  libs=-lbind -lnsl -lgdbm -ldbm -ldb -ldl -lld -lm -lC -lc -lcrypt -lbsd -lPW -liconv
  libc=/lib/libc.a, so=a, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_aix.xs, dlext=so, d_dlsymun=undef, ccdlflags=' -bE​:/usr/local/lib/perl5/5.6.0/aix/CORE/perl.exp -bE​:/usr/local/lib/perl5/5.6.0/aix/CORE/perl.exp'
  cccdlflags=' ', lddlflags='-bhalt​:4 -bM​:SRE -bI​:$(PERL_INC)/perl.exp -bE​:$(BASEEXT).exp -b noentry -lC -lc -L/usr/local/lib'

!NO!SUBS!

From swcxt@co.boulder.co.us

require '_h2ph_pre.ph';

unless(defined(&_H_STANDARDS)) {
  eval 'sub _H_STANDARDS () {1;}' unless defined(&_H_STANDARDS);
  eval 'sub _AIXVERSION_430 () {1;}' unless defined(&_AIXVERSION_430);
  eval 'sub _AIXVERSION_431 () {1;}' unless defined(&_AIXVERSION_431);
  if(defined(&_XOPEN_SOURCE)) {
  if((((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0) + 0) != 500)) {
  undef(&_XOPEN_SOURCE) if defined(&_XOPEN_SOURCE);
  eval 'sub _XOPEN_SOURCE () {1;}' unless defined(&_XOPEN_SOURCE);
  }
  }
  if(defined( &_UNIX98) || ((defined(&_XOPEN_SOURCE) ? &_XOPEN_SOURCE : 0)==500)) {
  undef(&_XOPEN_SOURCE) if defined(&_XOPEN_SOURCE);
  eval 'sub _XOPEN_SOURCE () {500;}' unless defined(&_XOPEN_SOURCE);
  undef(&_XOPEN_SOURCE_EXTENDED) if defined(&_XOPEN_SOURCE_EXTENDED);
  eval 'sub _XOPEN_SOURCE_EXTENDED () {1;}' unless defined(&_XOPEN_SOURCE_EXTENDED);
  }
  if(defined(&_UNIX95)) {
  undef(&_XOPEN_SOURCE_EXTENDED) if defined(&_XOPEN_SOURCE_EXTENDED);
  eval 'sub _XOPEN_SOURCE_EXTENDED () {1;}' unless defined(&_XOPEN_SOURCE_EXTENDED);
  }
  if(((defined(&_XOPEN_SOURCE_EXTENDED) ? &_XOPEN_SOURCE_EXTENDED : 0)==1)) {
  unless(defined(&_XOPEN_SOURCE)) {
  eval 'sub _XOPEN_SOURCE () {1;}' unless defined(&_XOPEN_SOURCE);
  }
  }
  if(defined(&_XOPEN_SOURCE)) {
  unless(defined(&_POSIX_SOURCE)) {
  eval 'sub _POSIX_SOURCE () {1;}' unless defined(&_POSIX_SOURCE);
  }
  }
  if(defined(&_POSIX_SOURCE)) {
  unless(defined(&_ANSI_C_SOURCE)) {
  eval 'sub _ANSI_C_SOURCE () {1;}' unless defined(&_ANSI_C_SOURCE);
  }
  }
  if(defined(&_ALL_SOURCE)) {
  undef(&_XOPEN_SOURCE) if defined(&_XOPEN_SOURCE);
  eval 'sub _XOPEN_SOURCE () {500;}' unless defined(&_XOPEN_SOURCE);
  unless(defined(&_POSIX_SOURCE)) {
  eval 'sub _POSIX_SOURCE () {1;}' unless defined(&_POSIX_SOURCE);
  }
  unless(defined(&_ANSI_C_SOURCE)) {
  eval 'sub _ANSI_C_SOURCE () {1;}' unless defined(&_ANSI_C_SOURCE);
  }
  unless(defined(&_XOPEN_SOURCE_EXTENDED)) {
  eval 'sub _XOPEN_SOURCE_EXTENDED () {1;}' unless defined(&_XOPEN_SOURCE_EXTENDED);
  }
  if(defined(&_LONG_LONG)) {
  unless(defined(&_LARGE_FILE_API)) {
  eval 'sub _LARGE_FILE_API () {1;}' unless defined(&_LARGE_FILE_API);
  }
  }
  }
  if((!defined ( &_XOPEN_SOURCE)) && (!defined ( &_POSIX_SOURCE)) && (!defined ( &_ANSI_C_SOURCE))) {
  eval 'sub _XOPEN_SOURCE () {500;}' unless defined(&_XOPEN_SOURCE);
  eval 'sub _XOPEN_SOURCE_EXTENDED () {1;}' unless defined(&_XOPEN_SOURCE_EXTENDED);
  eval 'sub _POSIX_SOURCE () {1;}' unless defined(&_POSIX_SOURCE);
  eval 'sub _ANSI_C_SOURCE () {1;}' unless defined(&_ANSI_C_SOURCE);
  if(defined(&_LONG_LONG)) {
  unless(defined(&_LARGE_FILE_API)) {
  eval 'sub _LARGE_FILE_API () {1;}' unless defined(&_LARGE_FILE_API);
  }
  }
  unless(defined(&_ALL_SOURCE)) {
  eval 'sub _ALL_SOURCE () {1;}' unless defined(&_ALL_SOURCE);
  }
  }
}
1;

From @chorny

Can you check that this still happens with Perl 5.12?

On Wed Oct 25 03​:59​:12 2000, swcxt@​co.boulder.co.us wrote​:

Perl release 5.6.0
Platform RS/6000, AIX 4.3.2 maint level 02
'myconfig' file attached

My ph files in the site_perl hierarchy are severely broken
by h2ph. When used, they produce messages similar to these​:

Prototype mismatch​: sub main​::_XOPEN_SOURCE vs () at (eval 7) line 1.
Prototype mismatch​: sub main​::_XOPEN_SOURCE_EXTENDED vs () at (eval 8)
line 1.
Prototype mismatch​: sub main​::_XOPEN_SOURCE vs () at (eval 9) line 1.
Bareword found where operator expected at (eval 66) line 1, near "%
&hd"
(Missing operator before hd?)
Operator or semicolon missing before &hd at (eval 66) line 1.
Ambiguous use of & resolved as operator & at (eval 66) line 1.

These are (mostly) generated by the 'standards.ph' file, also
attached.

I'd appreciate any clues as to how I might go about repairing this.
For a few old programs that I don't have time to rewrite, I have to
use the old 'chat2.pl' package, and so far my workaround is to invoke
these scripts using a cookie of '#!/usr/local/bin/perl5.003', since
that is the last release that didn't have this broken. (I can't even
get perl5.003_07 to compile on this platform. Bummer.)

--
Alexandr Ciornii, http​://chorny.net

From @dmcbride

On Thu Apr 15 02​:03​:17 2010, chorny wrote​:

Can you check that this still happens with Perl 5.12?

I'm not seeing this with perl 5.14.2 on AIX 6, though I'm definitely no
expert on h2ph.

From @dcollinsn

No updates from requestor, no evidence that anyone else is able to reproduce. Closing as abandoned.

From [Unknown Contact. See original ticket]

No updates from requestor, no evidence that anyone else is able to reproduce. Closing as abandoned.

@dcollinsn - Status changed from 'open' to 'abandoned'