Revise Read_Table_A to Point to Thermostat.pm

krkeegan · Mar 3, 2013 · 96baeab · 96baeab
1 parent ac0e056
commit 96baeab
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/read_table_A.pl b/lib/read_table_A.pl
@@ -150,10 +150,10 @@ sub read_table_A {
         }
     }
     elsif($type eq 'IPLT' or $type eq 'INSTEON_THERMOSTAT') {
-        require 'Insteon_Thermostat.pm';
+        require Insteon::Thermostat;
         ($address, $name, $grouplist, $object, @other) = @item_info;
         $other = join ', ', (map {"'$_'"} @other); # Quote data
-        $object = "Insteon_Thermostat(\$$object, \'$address\', $other)";
+        $object = "Insteon::Thermostat(\'$address\', $other)";
     }
     elsif($type eq "INSTEON_IRRIGATION") {
         require 'Insteon_Irrigation.pm';