Browse files

Small trepan.pl cleanup

  • Loading branch information...
1 parent a8a7a6e commit e4d65c0900c9d6c2d02f19035ebf2b13d9e6fe2e Rocky Bernstein committed Dec 24, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 bin/trepan.pl
View
4 bin/trepan.pl
@@ -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";

0 comments on commit e4d65c0

Please sign in to comment.