fix open pragma overriding explicit layers

dolmen · Jun 23, 2014 · a38f545 · a38f545
1 parent 5acb841
commit a38f545
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Fatal.pm b/lib/Fatal.pm
@@ -214,7 +214,7 @@ my %Retval_action = (
     "CORE::open"        => q{
 
     # apply the open pragma from our caller
-    if( defined $retval ) {
+    if( defined $retval && !( @_ >= 3 && $_[1] =~ /:/ )) {
         # Get the caller's hint hash
         my $hints = (caller 0)[10];