[117301] trunk/dports/gnome/gtk-doc

[devans at macports.org]

Revision: 117301
          https://trac.macports.org/changeset/117301
Author:   devans at 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");
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140221/8b96c6f3/attachment-0001.html>