forked from github/kensanata.oddmuse
8 lines
144 B
Perl
8 lines
144 B
Perl
*OldPrintFooter = *PrintFooter;
|
|
*PrintFooter = *NewPrintFooter;
|
|
|
|
sub NewPrintFooter {
|
|
OldPrintFooter(@_);
|
|
print "Debug Info: $DebugInfo";
|
|
}
|