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