Code which breaks perl.ssh 2.11

[earthur]

Hi,

The following broke pretty printing using perl.ssh 2.11:

    if (exists($units{$parent})) {
        # parent directory is unit directory
        $unit      = $parent;
        $tmp       = $pwd;
        $tmp       =~ s/\/\w+$//;               # remove "/leaf" from pwd
        $base_dir  = $tmp;
    }
    else {

All highlighting ceased after the "# remove" comment...
I've since moved the comment to its own line before the regular
expression...

/Ed