Blob Blame Raw
#!/bin/sh

# The original script name has been passed as the first argument:
"$@" |
  awk '
	$0 != "perl(FCGI)" &&
	$0 != "perl(Tk)" &&
	$0 !~ /^perl\(Tk::/ &&
	$0 !~ /^perl\(Mac::/
      '

# We used to filter also these:
#	NDBM perl(v5.6.0) perl(Tie::RangeHash)
# but they don't seem to be present anymore.