[3416] in testers
Re: perl4/5 errors in *.ph files
daemon@ATHENA.MIT.EDU (Jacob Morzinski)
Sun Mar 29 22:51:05 1998
Date: Sun, 29 Mar 1998 22:50:34 -0500 (EST)
From: Jacob Morzinski <jmorzins@MIT.EDU>
Reply-To: Jacob Morzinski <jmorzins@MIT.EDU>
To: Mike Whitson <mwhitson@MIT.EDU>
Cc: perldev@MIT.EDU, testers@MIT.EDU
In-Reply-To: <n914t0hqn8h.fsf@dzur.mit.edu>
On 29 Mar 1998, Mike Whitson wrote:
> To the best of my knowledge, .ph files are *not supported* under perl5.
I understand, but the .ph files which are used by .pm files ought
to work.
I did some more looking. Only Net::Domain, Sys::Hostname,
Sys::Syslog, and Test::Harness seem to depend on require'd .ph files.
Sys::Hostname is the only of these modules which has troubles on
a supported platform (IRIX), and it's trouble is caused by syntax
errors in the sys/types.ph file. (Interestingly, sys/types.ph
has the same error on the other platforms as well, but the error
is not visible because the Sys::Hostname doesn't end up
require'ing sys/types.ph on platforms other than IRIX.)
So, if you fix the Irix copy of sys/types.ph, then the
*supported* perl modules will work.
Thank you,
Jacob Morzinski
PS: Incidentally, I wonder if it would be desirable to patch the
h2ph script, so that the sys/types.ph file is generated
correctly. Something like the included patch would fix
sys/types.ph, and (I think) it's narrow enough to not mess
up other files...
--- /mit/perl5/bin/h2ph Tue Feb 10 12:21:03 1998
+++ /tmp/h2ph Sun Mar 29 22:31:19 1998
@@ -97,2 +97,3 @@
$new = 1 if $new eq '';
+ $new =~ s/(\)\s*)(\d+|0x\d+)(\s*\))/$1\($2\)$3/;
if ($t ne '') {
