Front page | perl.perl5.porters |
Postings from November 2021
Missing f in
use strict;
my $foo; # <---- here
$foo = do { BEGIN { 1 } };
print $foo,$/;
Sorry for that. - I probably should have wrapped that BEGIN into some
subroutine for more clarity.
0--gg-
From the keyboard of shmem [17.11.21,18:12]:
[...]
> use strict;
> my $oo;
> $foo = do { BEGIN { 1 } };
> print $foo,$/;
0--gg-
--
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
Thread Previous
|
Thread Next