#!/bin/sh
#
# perltighten - remove blank lines in Perl code
#
# $Id$

# such blank lines were previously inserted by perltidy
# (with different settings than the current ones in ../.perltidyrc)

iopt=

case "$1" in
-b) iopt=-i.bak; shift;;
esac

perl $iopt -0pe 's#{\n\n#{\n#g' "$@"