This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
open.pm minor cleanup
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 31 Jan 2002 15:03:02 +0000 (16:03 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 31 Jan 2002 14:08:44 +0000 (14:08 +0000)
Message-ID: <20020131150302.C1452@rafael>

p4raw-id: //depot/perl@14504

lib/open.pm

index 7eaea0f..b535d88 100644 (file)
@@ -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)';