diff options
Diffstat (limited to 'scripts/getop.pl')
| -rw-r--r-- | scripts/getop.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/getop.pl b/scripts/getop.pl index 1dbd75c..4b1914c 100644 --- a/scripts/getop.pl +++ b/scripts/getop.pl @@ -343,7 +343,7 @@ sub channel_sync { sub savegetop { local *fp; - open (fp, ">$getopfile") or die "Couldn't open $getopfile for writing"; + open (fp, ">", $getopfile) or die "Couldn't open $getopfile for writing"; for my $ircnet (keys %getop) { for my $chan (keys %{$getop{$ircnet}}) { @@ -361,7 +361,7 @@ sub loadgetop { return unless (-e $getopfile); local *fp; - open (fp, "<$getopfile") or die "Couldn't open $getopfile for reading"; + open (fp, "<", $getopfile) or die "Couldn't open $getopfile for reading"; local $/ = "\n"; while (<fp>) { |