view release on metacpan or  search on metacpan

MxScreen/Tie/Stdout.pm  view on Meta::CPAN

		return DVOID;
	}

	#
	# Determine caller
	#

	my ($pkg, $filename, $line);
	my $i = 0;
	do {
		($pkg, $filename, $line) = caller($i++)
	} while ($pkg eq __PACKAGE__ || $pkg eq 'Tie::Handle');

	#
	# Strip all trailing "\n" before logging.
	#

	$len-- while $len && substr($buf, $offset + $len - 1, 1) =~ /^[\r\n]/;
	logerr "STDOUT discarded (at %s, line %d): %s",
		$filename, $line, substr($buf, $offset, $len);