find . -type f | xargs -n1 perl -pi.bak -0777 -e '$want = "#!perl -Tw"; s/\A#!.*\n/$want\n/; s/\A([^#])/$want\n\1/s'
import plugins/connection_time from SVN's contrib. Changes: * perltidy run * add one optional parameter: log level of the message, defaults to LOGNOTICE (same as in SVN)