[perl #16960] [PATCH] assemble.pl dulpicate labels

[via RT]

# New Ticket Created by  Leopold Toetsch 
# Please include the string:  [perl #16960]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16960 >



imcc and assembler did allow duplicate labels.
Fix for imcc is ready and follows with my other changes.

Please apply,
leo


-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/36393/29416/733a22/assemble.pl.diff


--- assemble.pl Sat Aug 24 20:31:59 2002
+++ /home/lt/src/parrot-leo/assemble.pl Tue Sep  3 11:03:21 2002
@@ -525,6 +525,7 @@
         push @{$self->{local_labels}{$1}},$_->[1]; # Local label
       }
       else {
+       die("Label $1 already exists") if($self->{global_labels}{$1});
         $self->{global_labels}{$1} = $_->[1]; # Global label
       }
     }