From: Rafael Garcia-Suarez Date: Thu, 31 Jan 2002 15:03:02 +0000 (+0100) Subject: open.pm minor cleanup X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=725d232a70026302b7898692e2e17c43b9ad4e76;p=p5sagit%2Fp5-mst-13.2.git open.pm minor cleanup Message-ID: <20020131150302.C1452@rafael> p4raw-id: //depot/perl@14504 --- diff --git a/lib/open.pm b/lib/open.pm index 7eaea0f..b535d88 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)';