[m-rev.] diff: mtags: fix Perl syntax error

[Fergus Henderson]

Estimated hours taken: 0.25
Branches: main, release

scripts/mtags:
	Fix a syntax error: s/break;/last;/

Workspace: /mnt/ceres/home/ceres/fjh/mercury
Index: scripts/mtags
===================================================================
RCS file: /home/mercury1/repository/mercury/scripts/mtags,v
retrieving revision 1.31
diff -u -d -r1.31 mtags
--- scripts/mtags	1 Apr 2003 05:04:25 -0000	1.31
+++ scripts/mtags	24 Nov 2003 03:34:37 -0000
@@ -214,7 +214,7 @@
 	}
 	if ($ARGV[0] eq "--") {
 		shift(ARGV);
-		break;
+		last;
 	}
 	die "mtags: unrecognized option \`$ARGV[0]'\n" .
 		"Use \`mtags --help' for help.\n";

-- 
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
--------------------------------------------------------------------------