use utf8;
my $scandir = 'something with umlauts it it';
That's exactly the same code you invented, five nodes back, in your original post in this thread: "Re^2: treat files with umlauts (utf)".
It is not code the OP posted (or even described in his narrative).
My response is unchanged.
# ...is this string literal not part of the source?
That string literal is only part of the source you've invented.
...
use Devel::Peek;
...
Posting code without explaining why you're doing so is not particularly helpful.
If you're referring to the output from that containing:
FLAGS = (PADMY,POK,pPOK,UTF8)
Then the UTF8 part of that is caused by the umlaut in 'für'.
But, the OP's posted code contains no umlauts. Only your invented code contains umlauts.
Change 'für' to 'fur', and you'll get:
FLAGS = (PADMY,POK,pPOK)
Just like the OP's posted code, this does not contain any umlauts and there's no UTF8 in the output.
You can keep inventing code that requires use utf8 all you want but the OP's posted code contains no umlauts (or any other characters) that require use utf8.
Please be very clear on these points:
-
The OP's posted code does not contain umlauts.
-
The OP's posted code does not include an assignment to $scandir.
-
the OP's posted code does not require use utf8;.
|