Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Small trepan.pl cleanup

  • Loading branch information...
commit e4d65c0900c9d6c2d02f19035ebf2b13d9e6fe2e 1 parent a8a7a6e
Rocky Bernstein authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 bin/trepan.pl
4 bin/trepan.pl
View
@@ -34,16 +34,16 @@
my $cmd;
if (scalar @exec_strs) {
$cmd = join(' ', @exec_strs_with_e) . join(' ', @ARGV);
- @exec_strs_with_e = map {('-e', qq{$_})} @exec_strs;
} else {
die "You need a Perl program to run or pass an string to eval"
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.
$cmd = join(' ', @ARGV);
}
+
+# Check that the debugged Perl program is syntactically valid.
my $syntax_errmsg = Devel::Trepan::Util::invalid_perl_syntax($cmd, 1);
if ($syntax_errmsg) {
print STDERR "$syntax_errmsg\n";
Please sign in to comment.
Something went wrong with that request. Please try again.