[gtk-doc] mkdb: deref the array to not rely on new perl versions

[Stefan Kost <stefkost src gnome org>]

commit 685d03c624c3e5184198e191ac52b77d9b41c0bb
Author: Daniel Macks <dmacks netspace org>
Date:   Wed Feb 19 19:36:38 2014 +0100

    mkdb: deref the array to not rely on new perl versions
    
    The previous code works in 5.14.2, but apparently not in 5.12.4.
    Fixes #724739

 gtkdoc-mkdb.in |   24 ++++++++++++------------
 1 files changed, 12 insertions(+), 12 deletions(-)
---
diff --git a/gtkdoc-mkdb.in b/gtkdoc-mkdb.in
index 9392892..1c25cb1 100755
--- a/gtkdoc-mkdb.in
+++ b/gtkdoc-mkdb.in
@@ -4774,7 +4774,7 @@ sub MarkDownParseBlocks {
       # a heading is ended by any level less than or equal
       if ($md_block->{"level"} == 1) {
         if ($line =~ /^={4,}[ \t]*$/) {
-          my $text = pop $md_block->{"lines"};
+          my $text = pop @{$md_block->{"lines"}};
           $md_block->{"interrupted"} = 0;
           push @md_blocks, $md_block;
 
@@ -4795,12 +4795,12 @@ sub MarkDownParseBlocks {
           next OUTER;
         } else {
           # push lines into the block until the end is reached
-          push $md_block->{"lines"}, $line;
+          push @{$md_block->{"lines"}}, $line;
           next OUTER;
         }
       } else {
         if ($line =~ /^[=]{4,}[ \t]*$/) {
-          my $text = pop $md_block->{"lines"};
+          my $text = pop @{$md_block->{"lines"}};
           $md_block->{"interrupted"} = 0;
           push @md_blocks, $md_block;
 
@@ -4810,7 +4810,7 @@ sub MarkDownParseBlocks {
                         level => 1 };
           next OUTER;
         } elsif ($line =~ /^[-]{4,}[ \t]*$/) {
-          my $text = pop $md_block->{"lines"};
+          my $text = pop @{$md_block->{"lines"}};
           $md_block->{"interrupted"} = 0;
           push @md_blocks, $md_block;
 
@@ -4831,7 +4831,7 @@ sub MarkDownParseBlocks {
           next OUTER;
         } else {
           # push lines into the block until the end is reached
-          push $md_block->{"lines"}, $line;
+          push @{$md_block->{"lines"}}, $line;
           next OUTER;
         }
       }
@@ -4842,7 +4842,7 @@ sub MarkDownParseBlocks {
                       text => "",
                       lines => [] };
       } else {
-        push $md_block->{"lines"}, $line;
+        push @{$md_block->{"lines"}}, $line;
       }
       next OUTER;
     }
@@ -4855,7 +4855,7 @@ sub MarkDownParseBlocks {
     if ($md_block->{"type"} eq "quote") {
       if (!$md_block->{"interrupted"}) {
         $line =~ s/^[ ]*>[ ]?//;
-        push $md_block->{"lines"}, $line;
+        push @{$md_block->{"lines"}}, $line;
         next OUTER;
       }
     } elsif ($md_block->{"type"} eq "li") {
@@ -4863,7 +4863,7 @@ sub MarkDownParseBlocks {
       if ($line =~ /^([ ]{0,3})($marker)[ ](.*)/) {
         my $indentation = $1;
         if ($md_block->{"indentation"} ne $indentation) {
-          push $md_block->{"lines"}, $line;
+          push @{$md_block->{"lines"}}, $line;
         } else {
           my $lines = $3;
           my $ordered = $md_block->{"ordered"};
@@ -4883,15 +4883,15 @@ sub MarkDownParseBlocks {
 
       if ($md_block->{"interrupted"}) {
         if ($first_char eq " ") {
-          push $md_block->{"lines"}, "";
+          push @{$md_block->{"lines"}}, "";
           $line =~ s/^[ ]{0,4}//;
-          push $md_block->{"lines"}, $line;
+          push @{$md_block->{"lines"}}, $line;
           $md_block->{"interrupted"} = 0;
           next OUTER;
         }
       } else {
         $line =~ s/^[ ]{0,4}//;
-        push $md_block->{"lines"}, $line;
+        push @{$md_block->{"lines"}}, $line;
         next OUTER;
       }
     }
@@ -5363,7 +5363,7 @@ sub MarkDownOutputDocBook {
       }
 
       if ($block->{"interrupted"}) {
-        push $block->{"lines"}, "";
+        push @{$block->{"lines"}}, "";
       }
 
       $text = &MarkDownParseLines ($block->{"lines"}, $symbol, "li");