Merge remote-tracking branch 'origin/samual/serverlist'

[xonotic/xonotic-data.pk3dir.git] / qcsrc / menu / auto-super.pl

diff --git a/qcsrc/menu/auto-super.pl b/qcsrc/menu/auto-super.pl
index 9ea4bdaf253000a80ffe4dcb52fb7811c43d02c2..00926d06171631ffa09795dabca5b070658ce7f0 100644 (file)
--- a/qcsrc/menu/auto-super.pl
+++ b/qcsrc/menu/auto-super.pl
@@ -74,7 +74,7 @@ for my $f(@ARGV)
                $s =~ s/\b$_\b/$old2new{$_}/g;
        }
 
-       my @methods_super = map { [ $_ . $methods{$base}{$_}, "SUPER($class).$_" ]; } keys %{$methods{$base}};
+       my @methods_super = map { [ $methods{$base}{$_} . "_" . $_, "SUPER($class).$_" ]; } keys %{$methods{$base}};
        for(@methods_super)
        {
                my ($search, $replace) = @$_;