I'm writing a Tk interface to SVN for my own consumption because I like working a certain way. In particular, this is wrap of svn diff with each file in a tab. As I commit files and do other stuff on the files, I want to refresh the tabs to reflect the new file state. The easiest way to do that is to provide a button to re-exec the original command:

my @reexec = [ $0, @ARGV ];
# when I press the refresh button:
exec( @reexec )
[download]

So far no big deal. But if I am debugging, I didn't run

I ran

To get around the issue, I do this:

my @reexec = [ $0, @ARGV ];
if ( defined (&DB::DB ) ) {
    unshift @reexec, 'perl', '-d:ptkdb';
}    
# when I press the refresh button:
exec( @reexec )
[download]

but I was just wondering if there was a more generic way to read any perl option. I grok about the #! line args. I just figured that perl.exe would save that info some place. If there isn't, then there isn't. Thanks all. End of Thread.