in reply to Re^2: Contacting the author of a module?
in thread Contacting the author of a module?
Your sub is equivalent to
sub sanitize { $_[0] =~ s/[^\x00-\xFF]//gr }
But it's wrong if you're trying to generate file names Perl can handle. cp1252 can't encode U+0080 to U+009F except U+0081, U+008D, U+008F, U+0090 and U+009D. Fixed:
sub sanitize { decode( "cp1252", encode( "cp1252", sub{ "" } ) ) }
|
|---|