2007-08-24 18:25:48 +00:00
|
|
|
#!/bin/sh
|
|
|
|
|
|
|
|
|
|
# The original script name has been passed as the first argument:
|
|
|
|
|
"$@" |
|
|
|
|
|
awk '
|
|
|
|
|
$0 != "perl(FCGI)" &&
|
2008-01-10 02:53:58 +00:00
|
|
|
$0 != "perl(Your::Module::Here)" &&
|
2007-08-24 18:25:48 +00:00
|
|
|
$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.
|
