Portál AbcLinuxu, 3. listopadu 2025 02:38
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.