diff options
| author | David Leadbeater | 2015-01-10 17:49:34 +0000 |
|---|---|---|
| committer | David Leadbeater | 2015-01-10 17:49:34 +0000 |
| commit | 2d920d6f610e176bf121f9089f21956595df70e9 (patch) | |
| tree | 287ac1dba07509317309acab3161f5da286958e9 /scripts/keepnick.pl | |
| parent | 1bae3cffef57d4d46d0230aa4f44cc52c7671b93 (diff) | |
| parent | d84f1e1808b3252af83e4963eccfd1e4f19c5326 (diff) | |
| download | scripts.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.pl | 4 |
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++; |
