diff options
| author | Larry Wall <lwall@netlabs.com> | 1991-06-06 23:28:02 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1991-06-06 23:28:02 +0000 |
| commit | 6e21c824d91ef0b4ae60b95b347e344e5bb4d38a (patch) | |
| tree | cc298b664815eb149de874f4694ea9d4b3f08308 /h2pl | |
| parent | 2b317908ea5309ab202d1cdbadccfdf42d10e2b1 (diff) | |
| download | perl-6e21c824d91ef0b4ae60b95b347e344e5bb4d38a.tar.gz | |
perl 4.0 patch 6: patch #4, continued
See patch #4.
Diffstat (limited to 'h2pl')
| -rw-r--r-- | h2pl/getioctlsizes | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/h2pl/getioctlsizes b/h2pl/getioctlsizes index b7d4a0dfb5..403fffaf86 100644 --- a/h2pl/getioctlsizes +++ b/h2pl/getioctlsizes @@ -3,7 +3,7 @@ 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*([^)]+)/) { + if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\('?\w+'?,\s*\w+,\s*([^)]+)/) { $need{$2}++; } } |