Public bug reported:

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

** Affects: perl (Ubuntu)
     Importance: Undecided
         Status: New

-- 
subroutine declaration breaks format/write using local variables
https://bugs.launchpad.net/bugs/230528
You received this bug notification because you are a member of Ubuntu
Bugs, which is subscribed to Ubuntu.

-- 
ubuntu-bugs mailing list
ubuntu-bugs@lists.ubuntu.com
https://lists.ubuntu.com/mailman/listinfo/ubuntu-bugs

Reply via email to