print the pop @INC to OUT instead of STDOUT
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 29 Jul 2016 11:57:06 +0000 (07:57 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 29 Jul 2016 11:57:06 +0000 (07:57 -0400)
utils/splain.PL

index cae84a0..bbcdad6 100644 (file)
@@ -38,7 +38,7 @@ $Config{startperl}
        if \$running_under_some_shell;
 !GROK!THIS!
 
-print <<'!NO!SUBS!';
+print OUT <<'!NO!SUBS!';
 
 BEGIN { pop @INC if $INC[-1] eq '.' }