summaryrefslogtreecommitdiffstats
path: root/scripts/keepnick.pl
diff options
context:
space:
mode:
authorDavid Leadbeater2015-01-10 17:49:34 +0000
committerDavid Leadbeater2015-01-10 17:49:34 +0000
commit2d920d6f610e176bf121f9089f21956595df70e9 (patch)
tree287ac1dba07509317309acab3161f5da286958e9 /scripts/keepnick.pl
parent1bae3cffef57d4d46d0230aa4f44cc52c7671b93 (diff)
parentd84f1e1808b3252af83e4963eccfd1e4f19c5326 (diff)
downloadscripts.irssi.org-2d920d6f610e176bf121f9089f21956595df70e9.tar.bz2
Merge branch 'perlcritic-e-l' of git://github.com/obfuscoder/scripts.irssi.org into obfuscoder-perlcritic-e-l
Conflicts: scripts/eng_no_translate_dpryo.pl
Diffstat (limited to 'scripts/keepnick.pl')
-rw-r--r--scripts/keepnick.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/keepnick.pl b/scripts/keepnick.pl
index 181dc23..5027ef1 100644
--- a/scripts/keepnick.pl
+++ b/scripts/keepnick.pl
@@ -81,7 +81,7 @@ sub load_nicks {
local(*CONF);
%keepnick = ();
- open CONF, "< $file";
+ open CONF, "<", $file;
while (<CONF>) {
my($net,$nick) = split;
if ($net && $nick) {
@@ -105,7 +105,7 @@ sub save_nicks {
return if $auto && !Irssi::settings_get_bool('keepnick_autosave');
- open CONF, "> $file";
+ open CONF, ">", $file;
for my $net (sort keys %keepnick) {
print CONF "$net\t$keepnick{$net}\n";
$count++;