NAME
usww - Forked from usw especially for Windows.
SYNOPSIS
use usww; # is just 9 bytes pragma instead of below:
use utf8;
use strict;
use warnings;
my $cp = '__YourCP__' || 'UTF-8';
binmode \*STDIN, ':encoding($cp)';
binmode \*STDOUT, ':encoding($cp)';
binmode \*STDERR, ':encoding($cp)';
DESCRIPTION
usww is usw for Windows.
May be useful for those who write the above code every single time with Windows.
HOW TO USE
use usww;It seems a kind of pragmas but doesn't spent %^H because overusing it is nonsense.
use usww; should be just the very shortcut at beginning of your codes
Therefore, if you want to set no, you should do it the same way as before.
no strict;
no warnings;
no utf8;These still work as expected everywhere.
And writing like this doesn't work
no usww;Automatically repairs bugs around file path which is encoded
It replaces $SIG{__WARN__} or/and $SIG{__DIE__} to avoid the bug(This may be a strange specification) of encoding only the file path like that:
宣言あり at t/script/00_è¦åãã.pl line 19.SEE ALSO
LICENSE
Copyright (C) worthmine.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
AUTHOR
Yuki Yoshida(worthmine)