Re: Smart Comments Question

Try

sub Smart::Comments::warn {
    print FOOOO @_;
    if($_[-1] !~ /\n$/){
      printf "at %s line %l ", (caller)[1,2];
    }
}
[download]

Comment on Re: Smart Comments Question Download Code

Replies are listed 'Best First'.
Re^2: Smart Comments Question by afoken (Chancellor) on Jun 23, 2009 at 14:10 UTC
Of course, the `printf` also needs the filehandle argument, or you'll end up writing one part to the file handle and the other one to STDOUT (or whatever you `select()`ed lastly). Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply] [d/l] [select]