No, you're right; I introduced that error while optimizing. It should be:

print $fh defined($val) ? $val 
                        : $self->_nosuchvar($v->[_contents],
                                            "\$".$v->[_contents]);
[download]