diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-02 14:06:51 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-02 14:06:51 +0000 |
| commit | 3610e89bc99631191c3186a12eb2496cc897c3de (patch) | |
| tree | 97fa37afb31b11f2c3eb916f2269822f8c56da1b | |
| parent | fc4d413fded67385a76049684d335854149ecabf (diff) | |
Rename config option commands to commands_file
| -rw-r--r-- | Echolot/Commands.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Echolot/Commands.pm b/Echolot/Commands.pm index 653ba20..6cc0612 100644 --- a/Echolot/Commands.pm +++ b/Echolot/Commands.pm @@ -1,7 +1,7 @@ package Echolot::Commands; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Commands.pm,v 1.1 2002/06/20 04:26:12 weasel Exp $ +# $Id: Commands.pm,v 1.2 2002/07/02 14:06:51 weasel Exp $ # =pod @@ -26,7 +26,7 @@ use English; sub addCommand($) { my ($command) = @_; - my $filename = Echolot::Config::get()->{'commands'}; + my $filename = Echolot::Config::get()->{'commands_file'}; open(FH, ">>$filename" ) or cluck("Cannot open $filename for appending $!"), return 0; @@ -43,7 +43,7 @@ sub addCommand($) { }; sub processCommands($) { - my $filename = Echolot::Config::get()->{'commands'}; + my $filename = Echolot::Config::get()->{'commands_file'}; (-e $filename) or return 1; |