X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/blobdiff_plain/214af6ad83f3cdaa728e03180f77b0396409c2f7..0668bfe077a9e2101f8ef0fea60780f30273a826:/support/extern-squish

diff --git a/support/extern-squish b/support/extern-squish
deleted file mode 100755
index eb8b32e1..00000000
--- a/support/extern-squish
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/usr/bin/perl
-# This script finds extraneous "extern" variables in the *.c files.
-# Run it from inside the main rsync directory.
-
-use strict;
-
-my @files = glob('*.c');
-
-foreach my $fn (@files) {
-    open(IN, '<', $fn) or die;
-    undef $/; $_ = <IN>; $/ = "\n";
-    close IN;
-    my @externs = /^extern .*?([^[\s(*;&.]+)(?:\[.*?\])?;/mg;
-    foreach my $find (@externs) {
-	my @matches = /(?<!\sstruct )\b(\Q$find\E)\b/g;
-	print $fn, ': ', $find, "\n" if @matches == 1;
-    }
-}