Add @db::clients as a global. Use like() in testing instaead of cmp_o…

…k(..., /.../, '>', 0)

lib/Devel/Trepan/DB.pm

@@ -12,7 +12,7 @@ use English qw( -no_match_vars );
 
 use vars qw($usrctxt $running $caller
             $event @ret $ret $return_value @return_value
-            $stop
+            $stop @clients
             $init_dollar0 $OS_STARTUP_DIR);
 
 use Devel::Trepan::DB::Backtrace;
@@ -21,7 +21,7 @@ use Devel::Trepan::DB::Eval;
 use Devel::Trepan::DB::Sub;
 
 # "private" globals
-my ($ready, $deep, @saved, @skippkg, @clients);
+my ($ready, $deep, @saved, @skippkg);
 
 my $ineval = {};
 
@@ -52,6 +52,7 @@ BEGIN {
     @DB::args = ();       # arguments of current subroutine or @ARGV array
     @DB::dbline = ();     # list of lines in currently loaded file
     %DB::dbline = ();     # actions in current file (keyed by line number)
+    @DB::clients = ();
 
     # other "public" globals  
 

t/20test-trepanpl-opts.t

@@ -34,8 +34,7 @@ if ($pid) {
     is(1, $CHILD_ERROR >> 8);
     open($fh, '<', $tempfile);
     $output = <$fh>;    # read whole file
-    cmp_ok($output =~ /Usage:/, '>', 0, 
-	   "$trepanpl --help should have a 'usage line");
+    like($output, qr/Usage:/, "$trepanpl --help should have a 'usage line");
 } else {
     my $output = `$EXECUTABLE_NAME -- $trepanpl --help`;
     my $rc = $? >> 8;
@@ -50,8 +49,8 @@ if ($pid) {
     is($CHILD_ERROR >> 8, 10);
     open($fh, '<', $tempfile);
     $output = <$fh>;    # read whole file
-    cmp_ok($output =~ /, version /, '>', 0,
-	   "$trepanpl --version should be able to show the version number");
+    like($output, qr/, version /, 
+	 "$trepanpl --version should be able to show the version number");
 } else {
     my $output = `$EXECUTABLE_NAME -- $trepanpl --version`;
     my $rc = $? >> 8;