Fixes (Reader.pm did not have use strict)

[slotcarman.git] / gui.pl

diff --git a/gui.pl b/gui.pl
index 9311331b995d2ede32c2a5048672f74eb708fda8..8a00f244e431475dde98e9fe407c90da46ee1b4f 100755 (executable)
--- a/gui.pl
+++ b/gui.pl
@@ -37,7 +37,7 @@ sub quit {
 }
 
 sub scx_read {
-       my ($event, $reader) = @_;
+       my ($event, $fh, $reader) = @_;
 
        $reader->read();
        return TRUE;