[svn:parrot] r38799 - trunk/lib/Parrot/Docs

[coke at svn.parrot.org]

Author: coke
Date: Fri May 15 19:14:09 2009
New Revision: 38799
URL: https://trac.parrot.org/parrot/changeset/38799

Log:
[docs] 'make html' now understands all the PIR/PASM targets
use by t/examples/pod.t - even invalid PIR will be dumped into a PRE block.

Modified:
   trunk/lib/Parrot/Docs/POD2HTML.pm

Modified: trunk/lib/Parrot/Docs/POD2HTML.pm
==============================================================================
--- trunk/lib/Parrot/Docs/POD2HTML.pm	Fri May 15 17:06:23 2009	(r38798)
+++ trunk/lib/Parrot/Docs/POD2HTML.pm	Fri May 15 19:14:09 2009	(r38799)
@@ -45,7 +45,12 @@
 sub new {
     my $new = shift->SUPER::new(@_);
 
-    $new->accept_targets('PIR', 'PASM');
+    $new->accept_targets(qw(
+        PIR PASM PIR_FRAGMENT
+        PIR_INVALID PIR_TODO
+        PASM_INVALID PASM_TODO
+        PIR_FRAGMENT_INVALID
+    ));
     delete(@{$new->{'Tagmap'}}{'Data','/Data'});
 
     return $new;
@@ -348,7 +353,7 @@
     my $token = shift;
     my $target = $token->attr("target");
 
-    if ($target eq "PIR" || $target eq "PASM") {
+    if ($target =~ m/^(PIR|PASM)/) {
         print { $self->{'output_fh'} } '<pre>';
         $self->{IN_CODE_BLOCK} = 1;
     }