##
BEGIN { eval($^O eq 'Win32' ? <<'WIN32' : <<'LINUX') };
sub f { print "f-w\n" }
sub g { print "g-w\n" }
WIN32
sub f { print "f-l\n" }
sub g { print "g-l\n" }
LINUX
##
##
use constant BROKEN_FORK_IMPLEMENTATION => ($^O eq 'Win32');
sub f {
if (BROKEN_FORK_IMPLEMENTATION) {
...;
}
else {
...;
}
}