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/dau.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/dau.pl')
| -rw-r--r-- | scripts/dau.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/dau.pl b/scripts/dau.pl index 6b959c0..89a6623 100644 --- a/scripts/dau.pl +++ b/scripts/dau.pl @@ -2686,7 +2686,7 @@ sub switch_cool { } elsif ($style eq 'suffixes') { my $suffix; if (-e $file && -r $file) { - $/ = "\n"; + local $/ = "\n"; @ARGV = ($file); srand; rand($.) < 1 && ($suffix = switch_parse_special($_, $channel)) while <>; |