| Subject: | lwp-download doesn't allow _ (underscore) in filename |
| Date: | Mon, 9 Apr 2007 17:05:26 -0700 |
| To: | bug-libwww-perl [...] rt.cpan.org |
| From: | "Richard J. Rauenzahn" <rrauenza [...] cup.hp.com> |
Is disallowing _'s in filenames intentional, or was it left out by
accident in the regular expression?
# validate that we don't have a harmful filename now. The server
# might try to trick us into doing something bad.
if (!length($file) ||
$file =~ s/([^a-zA-Z0-9\.\-\+\~])/sprintf "\\x%02x", ord($1)/ge)
{
die "Will not save <$url> as \"$file\".\nPlease override file name on the comman
d line.\n";
}