diff options
| author | David Leadbeater | 2015-02-02 17:36:06 +0100 |
|---|---|---|
| committer | David Leadbeater | 2015-02-02 17:36:06 +0100 |
| commit | 8c57dd74f36b0429b725ff2a511ea951376680dd (patch) | |
| tree | 8955895edd0432da036782d67aa253079b003ca8 /scripts/xauth.pl | |
| parent | a457c0a97058fadf1b84247efd16176989412bc9 (diff) | |
| parent | 0816da664099746d962ee06b7de71be7c570e069 (diff) | |
| download | scripts.irssi.org-8c57dd74f36b0429b725ff2a511ea951376680dd.tar.bz2 | |
Merge pull request #130 from ailin-nemui/localise_vars
Localise the $/ special variable.
Diffstat (limited to 'scripts/xauth.pl')
| -rw-r--r-- | scripts/xauth.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/xauth.pl b/scripts/xauth.pl index 430500d..c4b13c0 100644 --- a/scripts/xauth.pl +++ b/scripts/xauth.pl @@ -362,7 +362,7 @@ sub read_users() { # and then we read the userfile. # apparently Irssi resets $/, so we set it here. - $/ = "\n"; + local $/ = "\n"; while( my $line = <XUSERS>) { if( $line !~ /^(#|\s*$)/ ) { my ($nick, $ircnet, $password) = @@ -435,7 +435,7 @@ sub read_chans() { # and then we read the channelfile. # apparently Irssi resets $/, so we set it here. - $/ = "\n"; + local $/ = "\n"; while( my $line = <NICKCHANS>) { if( $line !~ /^(#|\s*$)/ ) { my ($channel, $ircnet) = |