really fixed regexp bug in remove_np_files()

diff --git a/src/spong-server.pl b/src/spong-server.pl
index 1efc634056cd44d9e0082988add1b53e67eeb836..7bd09bb56971efe5545bd733a2e1007773aaabea 100755 (executable)
--- a/src/spong-server.pl
+++ b/src/spong-server.pl
@@ -6,7 +6,7 @@
 # There are one or more update processes that listen for status updates 
 # from client programs.
 
-# $Id: spong-server.pl,v 1.61 2003/07/16 17:50:40 sljohnson Exp $
+# $Id: spong-server.pl,v 1.62 2003/07/16 20:15:43 sljohnson Exp $
 
 use lib "@@LIBDIR@@";
 
@@ -1305,7 +1305,7 @@ sub remove_np_files {
    if (! @files) { return; }
 
    foreach $file (@files) {
-      if ( $file =~ m/^np-[^\-]+-$host-$service/ ) {
+      if ( $file =~ m/^np-.*-${host}-${service}/o ) {
          unlink "$SPONGTMP/$file";
       }
    }