diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-07-16 02:46:36 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-07-16 02:46:36 -0500 |
| commit | f342a382bbd8471d1a74fd11030aa98557898c7e (patch) | |
| tree | 00021c4157c2fb0ff7b407d2eb6e291a5d030de8 | |
| parent | 17217b22d8992f8132b707a035e3a34562ba573a (diff) | |
| download | app-termcast-f342a382bbd8471d1a74fd11030aa98557898c7e.tar.gz app-termcast-f342a382bbd8471d1a74fd11030aa98557898c7e.zip | |
don't double-interpolate $^X in the tests
| -rw-r--r-- | t/001-basic.t | 2 | ||||
| -rw-r--r-- | t/002-read-write.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/t/001-basic.t b/t/001-basic.t index 81c7037..6ec549d 100644 --- a/t/001-basic.t +++ b/t/001-basic.t @@ -17,7 +17,7 @@ test_tcp( use App::Termcast; my \$tc = App::Termcast->new(host => '127.0.0.1', port => $port, user => 'test', password => 'tset', - extra_argv => ["$^X", "-e", "print 'foo'"]); + extra_argv => ['$^X', "-e", "print 'foo'"]); \$tc->run; EOF my $pty = IO::Pty::Easy->new; diff --git a/t/002-read-write.t b/t/002-read-write.t index b006370..153f8c6 100644 --- a/t/002-read-write.t +++ b/t/002-read-write.t @@ -18,7 +18,7 @@ test_tcp( my \$tc = App::Termcast->new( host => '127.0.0.1', port => $port, user => 'test', password => 'tset', - extra_argv => ["$^X", "-e", "while (<>) { last if /\\\\./; print }"]); + extra_argv => ['$^X', "-e", "while (<>) { last if /\\\\./; print }"]); \$tc->run; EOF my $pty = IO::Pty::Easy->new; |