My work environment recently shifted from perl v5.6 to perl v5.10

I found one issue with perl format statement in latest version v5.10

sample code:

#!/bin/env perl
use strict;

&genRep();

sub genRep
{
format DURATION_TOP =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<
"This is TOP"
-------------------------------
.
format DURATION =
@<<<<<<<<<<<<<<<
"Main Body"
.
$~ = 'DURATION';
write;
}

Output in perl v5.6:
This is TOP
-------------------------------
Main Body

output in perl v5.10
Main Body


What should I do in v5.10 to get the old output?


-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/


Reply via email to