fixed minor typo in delta

[perl5.git] / h2pl / getioctlsizes

diff --git a/h2pl/getioctlsizes b/h2pl/getioctlsizes
index b7d4a0d..403fffa 100644 (file)
--- 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}++;
     } 
 }