1 files changed, 0 insertions, 13 deletions
diff --git a/contrib/perl5/h2pl/getioctlsizes b/contrib/perl5/h2pl/getioctlsizes
deleted file mode 100644
index 403fffa..0000000
--- a/contrib/perl5/h2pl/getioctlsizes
+++ /dev/null
@@ -1,13 +0,0 @@
-#!/usr/bin/perl
-
-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}++;
-    } 
-}
-
-foreach $key ( sort keys %need ) {
-    print $key,"\n";
-}