From 0816da664099746d962ee06b7de71be7c570e069 Mon Sep 17 00:00:00 2001
From: Ailin Nemui
Date: Mon, 2 Feb 2015 14:02:20 +0100
Subject: Localise the $/ special variable.

Follow-up to #129 to fix all $/ inside the scripts archive. Also fix
dejunk to not break scripts using the assumed default. Note, other
scripts like cmpchans might still break your scripts due to the global
nature of the Perl.
---
 scripts/ircgallery.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'scripts/ircgallery.pl')

diff --git a/scripts/ircgallery.pl b/scripts/ircgallery.pl
index c044a45..d700210 100644
--- a/scripts/ircgallery.pl
+++ b/scripts/ircgallery.pl
@@ -50,7 +50,7 @@ sub print_gallery {
   my $next_channels = 0;
   my $channels;
 
-  $. = "\n";
+  local $/ = "\n";
   my $f = gensym;
   if (!open($f, "<", "$cache_path/$nick")) {
     Irssi::print("Couldn't open file $cache_path/$nick: $!", MSGLEVEL_CLIENTERROR);
-- 
cgit v1.2.3