Re: [mh] errors in read_table_a.pl

[Kevin R. K. <ke...@kr...>]

I was about to say that this wasn't a perl syntax thing because I am
running Perl version 5.14.2 on Ubuntu.

However, then I discovered this SO post:

http://stackoverflow.com/questions/10979486/perl-incompatibility-issue-with-each-in-a-hash-of-hashes-5-14-5-8-8

I pushed the fix to master already.  I hope that solves it for you.

In the future it looks like I need to get and test mh changes with an older
version of perl.  Can anyone recommend a reasonable old release 5.8 looks
to be somewhat common.  Also, anyone know how to install and run two
different versions of perl?



On Fri, Oct 25, 2013 at 12:23 PM, Timothy Spaulding
<spa...@ic...>wrote:

>  This is sort of interesting.****
>
> ** **
>
> As best as I know, I do not have anything that would have involved a Scene
> of any type.****
>
> ** **
>
> This gives the impression that it is a perl syntax error instead of a
> content issue.****
>
> ** **
>
> I am running Perl version 5.12.4 on Redhat FC 15.****
>
> ** **
>
> *From:* Timothy Spaulding
> *Sent:* Friday, October 25, 2013 3:14 PM
> *To:* 'Kevin Robert Keegan'
> *Cc:* mis...@li...
> *Subject:* RE: [mh] errors in read_table_a.pl****
>
> ** **
>
> Sure, here they are.****
>
> ** **
>
> *From:* Kevin Robert Keegan [mailto:ke...@kr...<ke...@kr...>]
>
> *Sent:* Friday, October 25, 2013 12:12 PM
> *To:* Timothy Spaulding
> *Cc:* mis...@li...
> *Subject:* Re: [mh] errors in read_table_a.pl****
>
> ** **
>
> Hmm, I can't reproduce any error with that file (although I note that the
> data after the group column, "PLM, 1001" is no longer needed.  However that
> won't cause an error)****
>
> ** **
>
> Perhaps there is something in your other two mht files.  Something is
> causing an odd item to be placed into the %scene_build_controllers hash,
>  Can you send me those two files?****
>
> ** **
>
> On Fri, Oct 25, 2013 at 7:53 AM, Timothy Spaulding <spa...@ic...>
> wrote:****
>
> Sure.  I have 3 .mht files; attaching the one that has anything to do with
> insteon.  I also only  have a single device (not counting the PLM) and no
> scenes.****
>
>  ****
>
>  ****
>
> * *****
>
> * *****
>
> *From:* Kevin Robert Keegan [mailto:ke...@kr...]
> *Sent:* Friday, October 25, 2013 10:28 AM
> *To:* Timothy Spaulding
> *Cc:* The main list for the MisterHouse home automation program
> *Subject:* Re: [mh] errors in read_table_a.pl****
>
>  ****
>
> Can you send us your mht file as well?****
>
> On Oct 25, 2013 6:42 AM, "Timothy Spaulding" <spa...@ic...>
> wrote:****
>
> Hi All,****
>
>  ****
>
> I just pulled the latest from master and I am unable to start MH due to
> the below error:****
>
>  ****
>
> <error>****
>
> Type of arg 1 to keys must be hash or array (not hash element) at
> ../lib/read_table_A.pl line 1088, near "}) "****
>
> Type of arg 1 to each must be hash or array (not hash element) at
> ../lib/read_table_A.pl line 1091, near "})"****
>
> Compilation failed in require at ./mh line 4766, <TABLE_IN> line 9.****
>
> at ./mh line 31****
>
>         main::__ANON__('Type of arg 1 to keys must be hash or array (not
> hash element...') called at ./mh line 4766****
>
>         main::read_table_files() called at ./mh line 4556****
>
>         main::read_code called at ./mh line 6700****
>
> </error>****
>
>  ****
>
> <code area>****
>
> sub read_table_finish_A {****
>
>     my $code = '';****
>
>     #a scene cannot exist without a responder, but it could lack a
> controller if****
>
>     #scene is a PLM Scene****
>
>     foreach my $scene (sort keys %scene_build_responders) {****
>
>         $code .= "\n#SCENE_BUILD Definition for scene: $scene\n";****
>
>  ****
>
>         if($objects{$scene}) {****
>
>             #Since an object exists with the same name as the scene,****
>
>             #make it a controller of the scene, too. Hopefully it can be a
> controller****
>
>             $scene_build_controllers{$scene}{$scene}="1";****
>
>         }****
>
>  ****
>
>         #Loop through the controller hash****
>
>         if (exists $scene_build_controllers{$scene}){****
>
>                         foreach my $scene_controller (keys
> $scene_build_controllers{$scene}) {****
>
>                             if ($objects{$scene_controller}) {****
>
> </code area>****
>
>  ****
>
> The last line in the code is the problem line as best as I can tell.****
>
>
>
> ------------------------------------------------------------------------------
> October Webinars: Code for Performance
> Free Intel webinars can help you accelerate application performance.
> Explore tips for MPI, OpenMP, advanced profiling, and more. Get the most
> from
> the latest Intel processors and coprocessors. See abstracts and register >
> http://pubads.g.doubleclick.net/gampad/clk?id=60135991&iu=/4140/ostg.clktrk
> ________________________________________________________
> To unsubscribe from this list, go to:
> http://sourceforge.net/mail/?group_id=1365****
>
> ** **
>