note
Joost
Hmm.. You mean like this:
<c>
#!perl -w
use strict;
$_ = 'event_handler=';
my ($var1, $var2) = split( /=/);
if( !defined($var2) ) {
print "undefined\n";
}
else {
print "'$var1' '$var2'\n";
}
</c>
output:
<c>
'event_handler' ''
</c>
that <em>does</em> seem to be inconsistent with the docs. And what's even more confusing is that:
<P>
<c>
#!perl -w
use strict;
$_ = 'event_handler=';
my @arr = split(/=/);
my ($var1, $var2) = @arr;
if( !defined($var2) ) {
print "undefined\n";
}
else {
print "'$var1' '$var2'\n";
}
</c>
output:
<c>
undefined
</c>
Confirms the docs.
<p>
<b>updated:</b> added output for perl 5.8.8 / linux
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-157432">
<em>[id://149675|"What should it profit a man, if he should win a flame war, yet lose his cool?"]</em>
</div></div>
622420
622438