Explicitly sort the extensions, now that they come from multiple directories.
[perl.git] / h2pl / getioctlsizes
1 #!/usr/bin/perl
2
3 open (IOCTLS,'/usr/include/sys/ioctl.h') || die "ioctl open failed";
4
5 while (<IOCTLS>) {
6     if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\('?\w+'?,\s*\w+,\s*([^)]+)/) {
7         $need{$2}++;
8     } 
9 }
10
11 foreach $key ( sort keys %need ) {
12     print $key,"\n";
13