From c5df1c01ccb0f747af95c3b5993dfa7303b80c47 Mon Sep 17 00:00:00 2001
From: Score_Under <seejay.11@gmail.com>
Date: Sat, 15 Apr 2023 00:39:38 +0100
Subject: [PATCH] Print perl import warning to STDERR

Printing to STDOUT can interfere with programs which intend to produce
machine-readable output and yet for whatever reason import Irssi.pm from
outside of irssi.

Closes https://github.com/irssi/irssi/issues/1465
---
 src/perl/common/Irssi.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/perl/common/Irssi.pm b/src/perl/common/Irssi.pm
index 786d0e52..bca0084b 100644
--- a/src/perl/common/Irssi.pm
+++ b/src/perl/common/Irssi.pm
@@ -153,7 +153,7 @@ eval {
 $in_irssi = $@ ? 0 : 1;
 
 if (!in_irssi()) {
-  print "Warning: This script should be run inside irssi\n";
+  print STDERR "Warning: This script should be run inside irssi\n";
 } else {
   bootstrap Irssi $VERSION if (!$static);