diff options
| author | David Leadbeater | 2015-01-10 17:50:12 +0000 |
|---|---|---|
| committer | David Leadbeater | 2015-01-10 17:50:12 +0000 |
| commit | 3350aef6b04f0d33ad52b41179c6742a98d2aa1f (patch) | |
| tree | 287ac1dba07509317309acab3161f5da286958e9 /scripts/extaway.pl | |
| parent | 1bae3cffef57d4d46d0230aa4f44cc52c7671b93 (diff) | |
| parent | 2d920d6f610e176bf121f9089f21956595df70e9 (diff) | |
| download | scripts.irssi.org-3350aef6b04f0d33ad52b41179c6742a98d2aa1f.tar.bz2 | |
Merge branch 'obfuscoder-perlcritic-e-l' into gh-pages
Diffstat (limited to 'scripts/extaway.pl')
| -rw-r--r-- | scripts/extaway.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/extaway.pl b/scripts/extaway.pl index 78e8392..cc1a495 100644 --- a/scripts/extaway.pl +++ b/scripts/extaway.pl @@ -35,7 +35,7 @@ my ($oldnick, $t_away); sub init { # verifying if settings file exists - if (!(open xa_settings, "<$xa_confile")) { + if (!(open xa_settings, q{<}, $xa_confile)) { putlog("No config file: /xahelp for help"); return 0; }; @@ -135,7 +135,7 @@ sub xa_add { # Adding the keyword and the reason in the config file # may create double entries... my($kw, $reason) = @_; - if(!(open xa_settings, ">>$xa_confile")) { + if(!(open xa_settings, q{>>}, $xa_confile)) { &putlog("Unable to open file $xa_confile"); } print xa_settings "$kw:$reason\n"; @@ -146,7 +146,7 @@ sub xa_add { sub xa_save { # save the temp infos (might correct the double entries) my ($data,$server,$channel) = @_; - if(!(open xa_settings, ">$xa_confile")) { + if(!(open xa_settings, q{>}, $xa_confile)) { &putlog("Unable to create file $xa_confile"); } print xa_settings "bnick:$infos{'bnick'}\n"; |