16 lines
346 B
Bash
16 lines
346 B
Bash
|
#!/bin/sh
|
||
|
|
|
||
|
|
# The original script name has been passed as the first argument:
|
||
|
|
"$@" |
|
||
|
|
awk '
|
||
|
|
$0 != "perl(FCGI)" &&
|
||
|
|
$0 != "perl(Your::Module::Here)" &&
|
||
|
|
$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.
|