diff options
Diffstat (limited to 'contrib/amd/m4/chop-aclocal.pl')
-rwxr-xr-x | contrib/amd/m4/chop-aclocal.pl | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/contrib/amd/m4/chop-aclocal.pl b/contrib/amd/m4/chop-aclocal.pl deleted file mode 100755 index 2bf6b75f4c18..000000000000 --- a/contrib/amd/m4/chop-aclocal.pl +++ /dev/null @@ -1,19 +0,0 @@ -#!/bin/perl -w - -$seq = 1; -$file = ""; -$file = sprintf("tmp/%02d.m4", $seq); -open(FILE, ">$file") || die "cannot open \"$file\": $!"; -printf(STDOUT "FILE: $file\n"); -while (<>) { - if (/^$/) { - close(FILE); - $seq++; - $file = sprintf("tmp/%02d.m4", $seq); - open(FILE, ">$file") || die "cannot open \"$file\": $!"; - printf(STDOUT "FILE: $file\n"); - next; - } - printf FILE; -} -close(FILE); |