diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2016-07-29 07:57:06 -0400 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2016-07-29 07:57:06 -0400 |
commit | 2c25177bbcb0217f887201e4237280b5033145b6 (patch) | |
tree | 75a29da69039bc15fdc757650421790b2ec2123e | |
parent | 10088f564af8cd2979b1ff532d7247a1f69cd03b (diff) | |
download | perl-2c25177bbcb0217f887201e4237280b5033145b6.tar.gz |
print the pop @INC to OUT instead of STDOUT
-rw-r--r-- | utils/splain.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/splain.PL b/utils/splain.PL index cae84a0d38..bbcdad6f1e 100644 --- a/utils/splain.PL +++ b/utils/splain.PL @@ -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 '.' } |