[m-rev.] diff: support "." module qualifier in mtags

[Fergus Henderson]

On 26-Mar-2003, Fergus Henderson <fjh at cs.mu.OZ.AU> wrote:
> scripts/mtags:
> 	Allow the use of "." as a module qualifier.
> 	Also, output tags for both "." and "__" forms.

Estimated hours taken: 0.25
Branches: main

scripts/mtags:
	Fix a bug in my previous change.

Workspace: /home/ceres/fjh/mercury
Index: scripts/mtags
===================================================================
RCS file: /home/mercury1/repository/mercury/scripts/mtags,v
retrieving revision 1.30
diff -u -d -r1.30 mtags
--- scripts/mtags	26 Mar 2003 08:02:32 -0000	1.30
+++ scripts/mtags	1 Apr 2003 04:54:46 -0000
@@ -241,10 +241,10 @@
 	$match_line = $_;
 	$match_line =~ s|\\|\\\\|g;   # replace `\' with `\\'
 	$match_line =~ s|/|\\/|g;     # replace `/' with `\/'
-	$match_line =~ s|\.|__|g;     # replace `.' module qualifiers with `__'
 
 	# $src_name holds the name as it was in the original source
 	$src_name = $name;
+	$name =~ s|\.|__|g;     # replace `.' module qualifiers with `__'
 
 	# output a tag for the fully-qualified name
 	if (substr($name, 0, length($module)) ne $module) {
-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------