-----Original Message-----
From: Niels Larsen
Sent: Tuesday, October 21, 2014 9:12 PM
To: [email protected]
Subject: [Perldl] PDL / Perl 5.20 state
#!/usr/bin/env perl
use strict;
use warnings FATAL => qw ( all );
use feature "state";
&state_test();
&state_test();
sub state_test
{
state $str;
my ( $str_c );
$str = "string value";
print "before: ". $str ."\n";
$str_c = $str;
print " after: ". ( $str // "undef" ) ."\n";
return;
}
Hi Niels,
Sorry, I can't reproduce an "undef" with that code.
On Windows, perl-5.18.0, perl-5.20.0 (COW-enabled) and perl-5.21.5
(COW-enabled) all produce the same output:
####################
C:\_32\pscrpt>perl try.pl
before: string value
after: string value
before: string value
after: string value
####################
And I'm getting the same on Ubuntu-14.04 - again for 5.18.0, 5.20.0
(COW-enabled) and 5.21.5 (COW-enabled).
Cheers,
Rob
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
