[Bug 230528] Re: subroutine declaration breaks format/write using local variables

[Launchpad Bug Tracker]

[Expired for perl (Ubuntu) because there has been no activity for 60
days.]

** Changed in: perl (Ubuntu)
       Status: Incomplete => Expired

-- 
You received this bug notification because you are a member of Ubuntu
Foundations Bugs, which is subscribed to perl in Ubuntu.
https://bugs.launchpad.net/bugs/230528

Title:
  subroutine declaration breaks format/write using local variables

Status in “perl” package in Ubuntu:
  Expired

Bug description:
  Binary package hint: perl

  I expect these two programs to give the same output.

  $ cat test.pl 
  sub foo($);
  sub foo($) {
      my $i = shift;
      format STDOUT =
  @>>>
  $i
  .
      write;
  }
  foo(1);
  foo(2);

  $ perl test.pl
     1
     1


  $ cat test2.pl 
  sub foo($) {
      my $i = shift;
      format STDOUT =
  @>>>
  $i
  .
      write;
  }
  foo(1);
  foo(2);

  $ perl test2.pl
     1
     2

  
  $ perl -v

  This is perl, v5.8.8 built for x86_64-linux-gnu-thread-multi
  $ lsb_release -rd
  Description:	Ubuntu 8.04
  Release:	8.04
  $ apt-cache policy perl
  perl:
    Installed: 5.8.8-12
    Candidate: 5.8.8-12
    Version table:
   *** 5.8.8-12 0
          500 http://gb.archive.ubuntu.com hardy/main Packages
          100 /var/lib/dpkg/status

To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/230528/+subscriptions