1
2
3
4
5
6

    sub Tk::Error
    {
      my ($widget,$error,@locations) = @_;
      ...

    }

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"