sbnc (1.2-20) 09-misc.tcl-regexp.diff

Summary


     scripts/misc.tcl |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

download this patch

Patch contents

# Fix regexpression in processing IPs.

--- sbnc-1.2.orig/scripts/misc.tcl	2007-06-02 18:19:43.000000000 +0200
+++ sbnc-1.2/scripts/misc.tcl	2008-05-04 10:58:32.000000000 +0200
@@ -229,7 +229,7 @@
 	set proc [lindex $args 1]
 	set arg [lrange $args 2 end]
 
-	if {[regexp {\d*\.\d*\.\d*\.\d*} $host]} {
+	if {[regexp {^\d*\.\d*\.\d*\.\d*$} $host]} {
 		set reverse 1
 		set ipv6 0
 	} elseif {[string first ":" $host] != -1} {

page code/design/content is copyright (c) 2008 sean finney <seanius@debian.org>.
patches viewed/retrieved through this system are copyrighted by their respective authors.
browse git repo - clone git repo