diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-01-31 16:03:02 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-31 14:08:44 +0000 |
| commit | 725d232a70026302b7898692e2e17c43b9ad4e76 (patch) | |
| tree | cdcbd862a83d0df9f9ece8ee9a18ec11744f06f9 /lib/open.pm | |
| parent | d4c3df8fb75e6b3aab438116185a576428a02e11 (diff) | |
| download | perl-725d232a70026302b7898692e2e17c43b9ad4e76.tar.gz | |
open.pm minor cleanup
Message-ID: <20020131150302.C1452@rafael>
p4raw-id: //depot/perl@14504
Diffstat (limited to 'lib/open.pm')
| -rw-r--r-- | lib/open.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/open.pm b/lib/open.pm index 7eaea0fae9..b535d88239 100644 --- a/lib/open.pm +++ b/lib/open.pm @@ -66,7 +66,7 @@ sub import { $type = 'IO'; $dscp = ":$1"; } else { - $dscp = shift(@args); + $dscp = shift(@args) || ''; } my @val; foreach my $layer (split(/\s+/,$dscp)) { @@ -123,7 +123,7 @@ open - perl pragma to set default disciplines for input and output use open IO => ":encoding(iso-8859-7)"; use open IO => ':locale'; - + use open ':utf8'; use open ':locale'; use open ':encoding(iso-8859-7)'; |