Change 14504 by jhi@alpha on 2002/01/31 14:08:44
Subject: [PATCH] open.pm minor cleanup
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Thu, 31 Jan 2002 15:03:02 +0100
Message-ID: <20020131150302.C1452@rafael>
Affected files ...
.... //depot/perl/lib/open.pm#28 edit
Differences ...
==== //depot/perl/lib/open.pm#28 (text) ====
Index: perl/lib/open.pm
--- perl/lib/open.pm.~1~ Thu Jan 31 07:15:05 2002
+++ perl/lib/open.pm Thu Jan 31 07:15:05 2002
@@ -66,7 +66,7 @@
$type = 'IO';
$dscp = ":$1";
} else {
- $dscp = shift(@args);
+ $dscp = shift(@args) || '';
}
my @val;
foreach my $layer (split(/\s+/,$dscp)) {
@@ -123,7 +123,7 @@
use open IO => ":encoding(iso-8859-7)";
use open IO => ':locale';
-
+
use open ':utf8';
use open ':locale';
use open ':encoding(iso-8859-7)';
End of Patch.
