How can I rid a Deprecated REF problem?

[Ian Pellew]

Hi All;

Why am I getting the perl -W complaint like:-
[Thu Nov 18 22:44:07 2004] w: Using a hash as a reference is
deprecated at w line 435.
. . . . .

from the likes of :-
435: my $en = \%$t_xmlin->{$child}->{$tag_s};

The process works OK, but I doubt I am future proof.

I am after a REF to the XML::Simple structure like:-
$VAR1 = {
'our_tags' => {
'idx_serno' => '10001',
'serno' => {
-> 'pt_' => {
'atts' => '1',
'edate' => '9912312359',
. . . . .

I go on to use $en like
my $l_var = eval{$$en->{$comp_to}};

Regards
Ian

 

[Eric Amick]

Hi All;

Why am I getting the perl -W complaint like:-
[Thu Nov 18 22:44:07 2004] w: Using a hash as a reference is
deprecated at w line 435.
. . . . .

from the likes of :-
435: my $en = \%$t_xmlin->{$child}->{$tag_s};

The process works OK, but I doubt I am future proof.

I am after a REF to the XML::Simple structure like:-
$VAR1 = {
'our_tags' => {
'idx_serno' => '10001',
'serno' => {
-> 'pt_' => {
'atts' => '1',
'edate' => '9912312359',
. . . . .

I think you really want

my $en = $t_xmlin->{$child}->{$tag_s};

The value is already a reference to a hash, if I understand you
correctly. It would be useful to show the values of $child and $tag_s.

 

[Anno Siegel]

Hi All;

Why am I getting the perl -W complaint like:-
[Thu Nov 18 22:44:07 2004] w: Using a hash as a reference is
deprecated at w line 435.
. . . . .

from the likes of :-
435: my $en = \%$t_xmlin->{$child}->{$tag_s};

Precedence -- the expression is parsed as

\ ( %$t_xmlin->{$child}->{$tag_s});

which gives you a scalar ref (and the warning).

I'm not sure why you think you need all this de-referencing and
referencing.

my $en = $t_xmlin->{$child}->{$tag_s};

Anno