From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
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)';