If you leave out the "...." in your code, it's impossible that $Report is empty

Sorry, wrong. The part that is "left out" is mod_perl, which was clearly mentioned in the root node, and what it adds isn't where the "..."s in the shown code are.

What it produces is close to:

sub script {
  my $Report="";
  sub note {
      my ($titre,$texte) = @_;
      my $Texte= '<H5>'.$titre.'</H5>­<P>'.$texte.'</P>';
      $Report .=$Texte;
  }
  note($title,$text);
  print STDERR "*update.pl: end \n[\n$Report\n]\n";
}
[download]

script()
[download]

But in the original post, it says:

My final print of $Report is sometimes empty

Now, I can understand mod_perl resetting $Report each time the code is run. But resetting it right before the final print, after the subroutine call has added to it? In your code fragment, $Report isn't empty when it's being printed either.

Abigail

In your code fragment, $Report isn't empty when it's being printed either.

Sorry, wrong again.

sub script {
  my $Report="";
  sub note {
      my ($titre,$texte) = @_;
      my $Texte= '<H5>'.$titre.'</H5>­­<P>'.$texte.'</P>';
      $Report .=$Texte;
  }
  note($title,$text);
  print STDERR "*update.pl: end \n[\n$Report\n]\n";
}
script();
script();
script();
[download]

produces

*update.pl: end
[
<H5></H5>ĦĦ<P></P>
]
*update.pl: end
[

]
*update.pl: end
[

]
[download]

and you can see that the final print of $Report is empty every time but the first, just like I said.
                - tye