Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.

Perl error 4 Comments More | Login | Reply /

 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • That error happens when you do:

    my $ref = "some string";
    $ref->{foo} = "bar";

    So you need to figure out which hash-ref got set with that string instead of a reference to a hash.

    -sam

  • If that wierd string is not in your code, perhaps the strings "approval_code" and "req_orders" are?
    • If I had a cigar, I'd give you one!

      I was actually trying to be clever with:

      my @tables = keys %{reverse %{$Ereq::page_params{$page}}};

      Thought I could get the unique values that way, but mashing it all together caused problems.
      • How about :
        my @values =
        keys %{ { reverse %{ Ereq::page_params{$page} } } };

        I think the problem is that your calling reverse in scalar context
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.