… | |
… | |
1257 | $ENV{"PERL_ANYEVENT_$_"} = $ENV{"AE_$_"} |
1257 | $ENV{"PERL_ANYEVENT_$_"} = $ENV{"AE_$_"} |
1258 | for grep s/^AE_// && !exists $ENV{"PERL_ANYEVENT_$_"}, keys %ENV; |
1258 | for grep s/^AE_// && !exists $ENV{"PERL_ANYEVENT_$_"}, keys %ENV; |
1259 | |
1259 | |
1260 | @ENV{grep /^PERL_ANYEVENT_/, keys %ENV} = () |
1260 | @ENV{grep /^PERL_ANYEVENT_/, keys %ENV} = () |
1261 | if ${^TAINT}; |
1261 | if ${^TAINT}; |
|
|
1262 | |
|
|
1263 | # $ENV{PERL_ANYEVENT_xxx} now valid |
1262 | |
1264 | |
1263 | $VERBOSE = length $ENV{PERL_ANYEVENT_VERBOSE} ? $ENV{PERL_ANYEVENT_VERBOSE}*1 : 3; |
1265 | $VERBOSE = length $ENV{PERL_ANYEVENT_VERBOSE} ? $ENV{PERL_ANYEVENT_VERBOSE}*1 : 3; |
1264 | } |
1266 | } |
1265 | |
1267 | |
1266 | our $MAX_SIGNAL_LATENCY = 10; |
1268 | our $MAX_SIGNAL_LATENCY = 10; |