Revision: 117301 https://trac.macports.org/changeset/117301 Author: devans@macports.org Date: 2014-02-21 07:38:23 -0800 (Fri, 21 Feb 2014) Log Message: ----------- gtk-doc: apply upstream perl5.12 compatibility patch, increment revision (#42568). Modified Paths: -------------- trunk/dports/gnome/gtk-doc/Portfile Added Paths: ----------- trunk/dports/gnome/gtk-doc/files/ trunk/dports/gnome/gtk-doc/files/patch-gtkdoc-mkdb.in.diff Modified: trunk/dports/gnome/gtk-doc/Portfile =================================================================== --- trunk/dports/gnome/gtk-doc/Portfile 2014-02-21 15:33:05 UTC (rev 117300) +++ trunk/dports/gnome/gtk-doc/Portfile 2014-02-21 15:38:23 UTC (rev 117301) @@ -5,6 +5,7 @@ name gtk-doc version 1.20 +revision 1 categories gnome devel license GPL-2+ installs_libs no @@ -38,6 +39,8 @@ port:docbook-xsl \ port:itstool +patchfiles patch-gtkdoc-mkdb.in.diff + configure.perl ${prefix}/bin/perl configure.args --with-xml-catalog=${prefix}/etc/xml/catalog Added: trunk/dports/gnome/gtk-doc/files/patch-gtkdoc-mkdb.in.diff =================================================================== --- trunk/dports/gnome/gtk-doc/files/patch-gtkdoc-mkdb.in.diff (rev 0) +++ trunk/dports/gnome/gtk-doc/files/patch-gtkdoc-mkdb.in.diff 2014-02-21 15:38:23 UTC (rev 117301) @@ -0,0 +1,99 @@ +--- gtkdoc-mkdb.in.orig 2014-02-15 13:03:18.000000000 -0800 ++++ gtkdoc-mkdb.in 2014-02-21 06:33:57.000000000 -0800 +@@ -4740,7 +4740,7 @@ + # 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; + +@@ -4761,12 +4761,12 @@ + 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; + +@@ -4776,7 +4776,7 @@ + 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; + +@@ -4797,7 +4797,7 @@ + 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; + } + } +@@ -4808,7 +4808,7 @@ + text => "", + lines => [] }; + } else { +- push $md_block->{"lines"}, $line; ++ push @{$md_block->{"lines"}}, $line; + } + next OUTER; + } +@@ -4821,7 +4821,7 @@ + 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") { +@@ -4829,7 +4829,7 @@ + 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"}; +@@ -4849,15 +4849,15 @@ + + 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; + } + } +@@ -5329,7 +5329,7 @@ + } + + if ($block->{"interrupted"}) { +- push $block->{"lines"}, ""; ++ push @{$block->{"lines"}}, ""; + } + + $text = &MarkDownParseLines ($block->{"lines"}, $symbol, "li");