61de599c1b
find . -type f | xargs -n1 perl -pi.bak -0777 -e '$want = "#!perl -Tw"; s/\A#!.*\n/$want\n/; s/\A([^#])/$want\n\1/s'
8 lines
107 B
Perl
8 lines
107 B
Perl
#!perl -Tw
|
|
# this is a simple 'drop packets on the floor' plugin
|
|
|
|
sub hook_logging {
|
|
return DECLINED;
|
|
}
|
|
|