"local %MYPKG::;" causes $MYPKG::FOO and ${"MYPKG::FOO"} to differ #816

Activity

1. p5pRT commented on Nov 4, 1999

   

   p5pRT

   on Nov 4, 1999

   Author

   More actions

   From rnewman@northernlight.com

   It prints the following output​:

   "" ""
   "green" "green"
   "red" "red"
   "red" ""
   "blue" ""
   "blue" "yellow"
   "blue" "blue"

   when it should, in my opinion, print this​:

   "" ""
   "green" "green"
   "red" "red"
   "" ""
   "blue" "blue"
   "yellow" "yellow"
   "red" "red"

   #!/usr/bin/perl
   use strict;
   no strict 'refs';

   sub foo {
     local %MYPKG​:: ;
     dumpit();
     $MYPKG​::COLOR = "blue";
     dumpit();
     ${"MYPKG​::COLOR"} = "yellow";
     dumpit();
   }

   sub dumpit {
     print qq("), $MYPKG​::COLOR, qq(" );
     print qq("), ${"MYPKG​::COLOR"}, qq("\n);
   }

   dumpit();
   $MYPKG​::COLOR = "green";
   dumpit();
   ${"MYPKG​::COLOR"} = "red";
   dumpit();
   foo();
   dumpit();
2. p5pRT commented on Nov 4, 1999

   

   p5pRT

   on Nov 4, 1999

   Author

   More actions

   From [Unknown Contact. See original ticket]

   Ron Newman writes​:

   Here's a program that uses the statement "local %MYPKG​::;", and then
   finds that the variables $MYPKG​::FOO and ${"MYPKG​::FOO"} have
   different values.
   I don't see how this can ever correctly happen to a package variable.

   The address of $MYPKG​::FOO is known at compile-time.
   The address of ${"MYPKG​::FOO"} is not.

   Therefore the local() is screwing the latter but not the former.

   Short solution​: don't do that :-)

   Nat
3. p5pRT

   closed this as completedon Nov 28, 2003
4. p5pRT

   added

   Severity Medium

   affects-5.4

   distro-unknown

   documentation

   on Oct 18, 2019