[java2perl6] r85 committed - Fix POD output to not interfere with reading the docs via perldoc

[email protected] Tue, 11 Aug 2009 06:02:10 +0000
Newsgroups perl.dbdi.dev
Message-ID <[email protected]>
Revision: 85
Author: perlpilot
Date: Mon Aug 10 23:01:36 2009
Log: Fix POD output to not interfere with reading the docs via perldoc
http://code.google.com/p/java2perl6/source/detail?r=85

Modified:
  /trunk/bin/java2perl6

=======================================
--- /trunk/bin/java2perl6	Mon Aug 10 15:31:12 2009
+++ /trunk/bin/java2perl6	Mon Aug 10 23:01:36 2009
@@ -94,15 +94,7 @@
      );

      # include the decompiled java for reference
-    $output .= <<"EOS";
-=begin pod
-
-=head1 Java
-
-$decomp
-
-=end pod
-EOS
+    $output .= "=begin pod\n\n=head1 Java\n\n$decomp\n\n=end pod\n";

      my $file_name;
      if ( $outdir eq 'STDOUT' ) {