diff options
| author |   millert <millert@openbsd.org> | 2004-08-09 18:08:51 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2004-08-09 18:08:51 +0000 |
| commit | 04bf48b9e2bc58227ac0da17f40089433d4f734e (patch) | |
| tree | 6e41222006184ca3520a8e24bdf48dbc57cea896 /gnu/usr.bin/perl/lib/Pod/Perldoc.pm | |
| parent | move to 3.6-beta (diff) | |
| download | wireguard-openbsd-04bf48b9e2bc58227ac0da17f40089433d4f734e.tar.xz wireguard-openbsd-04bf48b9e2bc58227ac0da17f40089433d4f734e.zip | |
merge 5.8.5 into HEAD
remove now-unused files
crank libperl shared library major number
update Makefile.bsd-wrapper
tweak openbsd hints file for arm and m68k
Diffstat (limited to 'gnu/usr.bin/perl/lib/Pod/Perldoc.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/Pod/Perldoc.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/lib/Pod/Perldoc.pm b/gnu/usr.bin/perl/lib/Pod/Perldoc.pm index 5413fbd3307..e078dcf8a5f 100644 --- a/gnu/usr.bin/perl/lib/Pod/Perldoc.pm +++ b/gnu/usr.bin/perl/lib/Pod/Perldoc.pm @@ -12,7 +12,7 @@ use File::Spec::Functions qw(catfile catdir splitdir); use vars qw($VERSION @Pagers $Bindir $Pod2man $Temp_Files_Created $Temp_File_Lifetime ); -$VERSION = '3.12'; +$VERSION = '3.13'; #.......................................................................... BEGIN { # Make a DEBUG constant very first thing... @@ -1313,10 +1313,12 @@ sub check_file { unless( ref $self ) { # Should never get called: $Carp::Verbose = 1; - Carp::croak join '', + require Carp; + Carp::croak( join '', "Crazy ", __PACKAGE__, " error:\n", "check_file must be an object_method!\n", "Aborting" + ); } if(length $dir and not -d $dir) { |