Help for this page

Select Code to Download


  1. or download this
    {
       local *bar       # Make sure we don't clobber an existing var.
    ...
       our @bar;        # So we don't have to say @Package::bar.
       print($bar[0]);  # Same as print($foo[0]);
    }                   # Restores *bar (and therefore $bar, @bar, etc)
    
  2. or download this
    local *bar = \@foo;