> # interpolate EOL in format > $format =~ s/\\n/\n/g; > $format = $DEBUG_FORMAT unless defined $format; Should be this order to avoid undef warning (ironically enough): $format = $DEBUG_FORMAT unless defined $format; # interpolate EOL in format $format =~ s/\\n/\n/g; -mda