Permalink
Browse files

Fix for Perls <= v5.10

  • Loading branch information...
1 parent 671140c commit 2a4c867da6f40022362f1a5ed2e75874398ce888 joaquinferrero committed Sep 9, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 POD2-ES/lib/POD2/ES.pm
View
@@ -6,7 +6,7 @@ use open ':locale';
use base 'Exporter';
use base 'POD2::Base';
-our $VERSION = '5.16.1.02';
+our $VERSION = '5.16.1.03';
our @EXPORT = qw(print_pod print_pods);
@@ -86,7 +86,7 @@ sub print_pod {
# Print list of translated pods
sub print_pods {
- my $self = shift // __PACKAGE__;
+ my $self = @_ ? shift : __PACKAGE__;
$self->SUPER::print_pods;
}

0 comments on commit 2a4c867

Please sign in to comment.