summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
38e6823)
Now the meat of the function always has nonempty $_[-1].
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
sub printdebug {
return unless $debuglevel >= $printdebug_when_debuglevel;
print DEBUG $debugprefix;
sub printdebug {
return unless $debuglevel >= $printdebug_when_debuglevel;
print DEBUG $debugprefix;
+ pop @_ while @_ and !length $_[-1];
+ return unless @_;
print DEBUG @_ or die $!;
}
print DEBUG @_ or die $!;
}