Index: rename
===================================================================
RCS file: /cvsroot/twiki/twiki/bin/rename,v
retrieving revision 1.45
diff -U3 -r1.45 rename
--- rename	18 May 2003 21:18:14 -0000	1.45
+++ rename	15 Sep 2003 14:27:40 -0000
@@ -195,8 +195,9 @@
     my $lockFailure = 0;
 
     my $result = "";
-    my $preTopic = '^|\W';		# Start of line or non-alphanumeric
-    my $postTopic = '$|\W';	# End of line or non-alphanumeric
+    my $alphaNum = $TWiki::mixedAlphaNum;
+    my $preTopic = "^|[^${alphaNum}_]";		# Start of line or non-alphanumeric
+    my $postTopic = "\$|[^${alphaNum}_]";	# End of line or non-alphanumeric
     my $spacedTopic = TWiki::Search::spacedTopic( $oldTopic );
 
     while ( @refs ) {