diff options
author | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2008-06-20 18:42:08 +0000 |
---|---|---|
committer | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2008-06-20 18:42:08 +0000 |
commit | d1962627c4c3b7386746e022bbdd435427b79d14 (patch) | |
tree | eb20557c00218465979f49468eecdb593ab45d72 /ACE/bin/PerlACE/TestTarget.pm | |
parent | 3d46e45021161e090b2f4293352b8d9e73c4b78c (diff) | |
download | ATCD-d1962627c4c3b7386746e022bbdd435427b79d14.tar.gz |
ChangeLogTag: Fri Jun 20 18:40:10 UTC 2008 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'ACE/bin/PerlACE/TestTarget.pm')
-rw-r--r-- | ACE/bin/PerlACE/TestTarget.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ACE/bin/PerlACE/TestTarget.pm b/ACE/bin/PerlACE/TestTarget.pm index 9f64eb39185..75490649d86 100644 --- a/ACE/bin/PerlACE/TestTarget.pm +++ b/ACE/bin/PerlACE/TestTarget.pm @@ -44,6 +44,11 @@ sub create_target $target = new PerlACE::TestTarget_LVRT ($config_name); last SWITCH; } + if ($config_os =~ /VxWorks/i) { + require PerlACE::TestTarget_VxWorks; + $target = new PerlACE::TestTarget_VxWorks ($config_name); + last SWITCH; + } print STDERR "$config_os is an unknown OS type!\n"; } return $target; @@ -179,8 +184,7 @@ sub LocalFile ($) sub DeleteFile ($) { my $self = shift; - my $file = shift; - unlink $file; + unlink (@_); } sub GetFile ($) |