diff options
Diffstat (limited to 'scripts/connectcmd.pl')
| -rw-r--r-- | scripts/connectcmd.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/connectcmd.pl b/scripts/connectcmd.pl index d4a4491..b2bbdc2 100644 --- a/scripts/connectcmd.pl +++ b/scripts/connectcmd.pl @@ -17,7 +17,7 @@ my %postconn_actions; my %disconn_actions; sub load_actions { - open ACTIONS, "$ENV{HOME}/.irssi/connectcmd_actions"; + open ACTIONS, q{<}, "$ENV{HOME}/.irssi/connectcmd_actions"; while (<ACTIONS>) { my @lines = split "\n"; @@ -37,7 +37,7 @@ sub load_actions { } sub save_actions { - open ACTIONS, ">$ENV{HOME}/.irssi/connectcmd_actions"; + open ACTIONS, q{>}, "$ENV{HOME}/.irssi/connectcmd_actions"; foreach my $server (keys %preconn_actions) { print ACTIONS "$server:preconn:$preconn_actions{$server}\n"; |