Add test for previously uncovered case.

Explicitly assigned $File::Find::untaint_pattern.