diff options
| author | David Leadbeater | 2014-10-23 12:56:04 +0100 |
|---|---|---|
| committer | David Leadbeater | 2014-10-23 12:56:04 +0100 |
| commit | ff9a44047a299bce4995c22fd6f15851e1b065ee (patch) | |
| tree | 22fe1a5be481bb64d70243bdea9762639ee2ff41 /scripts/connectcmd.pl | |
| parent | 5d2811af5d3d29b524936ac95e7b1b3d5144a9ce (diff) | |
| parent | 2329fe260d3393c6bcbc868cb3f7a33d324b1910 (diff) | |
| download | scripts.irssi.org-ff9a44047a299bce4995c22fd6f15851e1b065ee.tar.bz2 | |
Merge pull request #79 from obfuscoder/perlcritic-bcd
Fix perlcritic issues for all scripts starting with b,c,d
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"; |