dieren: additional words, underscore replaced by space

diff --git a/dieren.plp b/dieren.plp
index e4dd7465185de6cd8f549806ca5731ae046b643f..7cc7f5dc0506e74d40c7fec9cd5a5baa1f4fdee3 100644 (file)
--- a/dieren.plp
+++ b/dieren.plp
@@ -57,8 +57,8 @@ else {
 <:
 my @table = qw(
        >:         origineel: zee-:        meer_water:    aardig:      anders:      #:
-       >hond:     hond       zeehond      waterhond?     aardhond?    vleerhond    #rodehond
-       >kat:      kat        zeekat       meerkat        caterpillar? tijgerkat    #
+       >hond:     hond       zeehond      waterhond?     prairiehond  vleerhond    #rodehond
+       >kat:      kat        zeekat       meerkat        cat_325?     tijgerkat    #
        #>haas:    haas       zeehaas      waterhaas      aardhaas?    ossenhaas?   #
        >muis:     muis       zeemuis      waterspitsmuis aardmuis     vleermuis    #
        >rat:      rat        zeerat       waterrat       woestijnrat  buidelrat    #beverrat
@@ -67,17 +67,17 @@ my @table = qw(
        >koe:      koe        zeekoe       meerkoetje     aardkoe?     koedoe       #haiku?
        >paard:    paard      zeepaardje   nijlpaard      aardpaard?   luipaard     #
        #>hoorn:   eenhoorn   zeehoorn     zee-eenhoorn?  aardhoorn?   neushoorn    #eekhoorn
-       #>bra:     brassiere? zebra        waterbra?      aardbra?     cobra        #
+       #>bra:     brassiere? zebra        waterbra?      aardbra?     cobra        #sabra
        #>olifant: olifant    zeeolifant   waterolifant?  landolifant? #            #
        >beer:     beer       zeebeer      waterbeertje   ijsbeer      wasbeer      #neusbeer
        >leeuw:    leeuw      zeeleeuw     waterleeuw?    aardleeuw?   mierenleeuw  #
        #>wolf:    wolf       zeewolf      waterwolf?     aardwolf     buidelwolf   #
        >haan:     haan       zeehaan      waterhaan      rotshaan     sprinkhaan   #
-       #>pad:     pad        zeepad?      waterpad?      landpad      schildpad    #
+       #>pad:     pad        zeepad?      waterpad?      landpad      schildpad    #paddenstoel
        #>draak:   draak      zeedraak     waterdraak     aarddraak?   komododraak  #
-       #>vlo:     vlo        strandvlo    watervlo       aardvlo      #            #
+       #>vlo:     vlo        strandvlo    watervlo       aardvlo      vlok?        #
        #>mot:     mot        zeemot?      watermot       aardmot?     marmot       #
-       #>bij:     bij        zeebij?      waterbij       aardbij      #            #
+       #>bij:     bij        zeebij?      waterbij       aardbei      #            #
 );
 
 if (exists $get{r}) {
@@ -100,6 +100,7 @@ while (my $name = shift @table) {
                        last if $name =~ m/^>/;
                }
        }
+       $name =~ y/_/ /;
        if ($name =~ s/^>//) {
                # leading dash starts a new row
                say '</tr>' if $name;
@@ -107,7 +108,6 @@ while (my $name = shift @table) {
        }
        if ($name =~ s/:$//) {
                # trailing colon indicates header text
-               $name =~ y/_/ /;
                print "<th>$name</th>";
                next;
        }