Portál AbcLinuxu, 19. prosince 2025 04:29
our $DEBUG;
sub fce1() {
...
warn "Tady fce1" if $DEBUG;
}
...
if ($podminka) {
local $DEBUG = 1;
fce1();
}
fce1(); # Tady uz $DEBUG není rovno 1
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.