Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 6f49cae0f4
Fetching contributors…

Cannot retrieve contributors at this time

executable file 34 lines (25 sloc) 0.98 kb
#!/usr/bin/env perl
# Standalone routine to invoke a Perl program under the debugger.
# The usual boilerplate...
use strict;
use warnings;
use English qw( -no_match_vars );
use File::Basename; use File::Spec;
use constant TREPAN_DIR => File::Spec->catfile(dirname(__FILE__), '..', 'lib');
use lib TREPAN_DIR;
use Devel::Trepan::Options;
use Data::Dumper;
my $opts = Devel::Trepan::Options::process_options(\@ARGV);
die "You need a Perl program to run" unless @ARGV;
# Resolve program name if it is not readable
$ARGV[0] = whence_file $ARGV[0] unless (-r $ARGV[0]);
# Check that the debugged Perl program is syntactically valid.
my $cmd = "$EXECUTABLE_NAME -c " . join(' ', @ARGV) . " 2>&1";
my $output = `$cmd`;
my $rc = $? >>8;
print "$output\n" if $rc;
exit $rc if $rc;
$ENV{'TREPANPL_OPTS'} = Data::Dumper::Dumper($opts);
# And just when you thought we'd never get around to actually
# doing something...
exec ($EXECUTABLE_NAME, '-I', TREPAN_DIR, '-d:Trepan', @ARGV);
Jump to Line
Something went wrong with that request. Please try again.