Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!ccut!wnoc-tyo-news!astemgw!icspub!newmars!youki
From: youki@newmars.ics.osaka-u.ac.jp (Youki Kadobayashi)
Newsgroups: comp.lang.perl
Subject: h2pl fix
Message-ID: <YOUKI.91May15063452@newmars.ics.osaka-u.ac.jp>
Date: 14 May 91 21:34:52 GMT
Sender: news@icspub.ics.osaka-u.ac.jp
Distribution: comp
Organization: Dept. of Info. and Comp. Sci., Osaka Univ., Japan
Lines: 63


Hi.

The h2pl scripts doesn't work on both perl 3.0@44 and perl 4.0@3.
These modification (attached below) solved my problem. I installed
both version on NeXT running OS 1.0. I wish someone could find this
patch useful.

*** getioctlsizes.orig	Sun May 12 00:13:53 1991
--- getioctlsizes	Sun May 12 00:23:40 1991
***************
*** 3,9 ****
  open (IOCTLS,'/usr/include/sys/ioctl.h') || die "ioctl open failed";
  
  while (<IOCTLS>) {
!     if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\(\w+,\s*\w+,\s*([^)]+)/) {
  	$need{$2}++;
      } 
  }
--- 3,9 ----
  open (IOCTLS,'/usr/include/sys/ioctl.h') || die "ioctl open failed";
  
  while (<IOCTLS>) {
!     if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\('\w+',\s*\w+,\s*([^)]+)/) {
  	$need{$2}++;
      } 
  }
*** mksizes.orig	Sun Apr 14 12:49:07 1991
--- mksizes	Sun May 12 00:24:56 1991
***************
*** 13,19 ****
  #include <sys/param.h>
  #include <sys/types.h>
  #include <sys/socket.h>
! #include <net/if_arp.h>
  #include <net/if.h>
  #include <net/route.h>
  #include <sys/ioctl.h>
--- 13,19 ----
  #include <sys/param.h>
  #include <sys/types.h>
  #include <sys/socket.h>
! /* #include <net/if_arp.h> youki */
  #include <net/if.h>
  #include <net/route.h>
  #include <sys/ioctl.h>
*** mkvars.orig	Sun May 12 00:27:55 1991
--- mkvars	Sun May 12 00:27:39 1991
***************
*** 22,27 ****
--- 22,28 ----
  		print <<EOT
  warn "\$$var isn't correctly set" if defined \$_main{'$var'};
  EOT
+ 		;
  		next;
  	    } 
  	    ( $nval = sprintf ("%x",$val ) ) =~ tr/a-z/A-Z/;

--
Youki Kadobayashi
Information Network Architecture Lab.
Dept. of Info. and Comp. Sci, Osaka University, Japan