Browse files

Use Perl 5.12

  • Loading branch information...
1 parent c8c5036 commit 5950637470ff823b871dedbc83914a637ada249f @petdance committed Jul 6, 2010
Showing with 9 additions and 10 deletions.
  1. +2 −3 Makefile.PL
  2. +6 −3 Podium.pm
  3. +1 −4 podium
View
5 Makefile.PL
@@ -1,6 +1,5 @@
-use 5.10.0;
-use strict;
-use warnings;
+use 5.012;
+
use ExtUtils::MakeMaker;
WriteMakefile(
View
9 Podium.pm
@@ -1,8 +1,6 @@
package App::Podium;
-use 5.10.0;
-use warnings;
-use strict;
+use 5.012;
=head1 NAME
@@ -50,7 +48,11 @@ sub pod2html_from_string {
my $html;
my $parser = App::Podium::PSH->new;
+ $parser->no_whining( 0 );
+ $parser->complain_stderr( 1 );
+ $parser->no_errata_section( 1 );
$parser->bare_output( 1 );
+
$parser->html_header_before_title( '' );
$parser->html_header_after_title( '' );
$parser->html_footer( '' );
@@ -69,6 +71,7 @@ sub pod2html_from_string {
sub pod2html_string {
my $podtext = shift;
+ # Cheap and sloppy
$podtext =~ s{C<(.+?)>}{<tt>$1</tt>}g;
return $podtext;
View
5 podium
@@ -1,9 +1,6 @@
#!/usr/bin/perl -w
-use 5.010;
-
-use strict;
-use warnings;
+use 5.012;
use Carp::Always;
use App::Podium;

0 comments on commit 5950637

Please sign in to comment.