--- cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm.orig	2013-03-04 15:16:21 UTC
+++ cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm
@@ -25,14 +25,16 @@ sub TRUE  () {1}
 sub FALSE () {return}
 
 BEGIN {
- *is_vms     = $^O eq 'VMS'      ? \&TRUE : \&FALSE unless defined &is_vms;
- *is_mswin32 = $^O eq 'MSWin32'  ? \&TRUE : \&FALSE unless defined &is_mswin32;
- *is_dos     = $^O eq 'dos'      ? \&TRUE : \&FALSE unless defined &is_dos;
- *is_os2     = $^O eq 'os2'      ? \&TRUE : \&FALSE unless defined &is_os2;
- *is_cygwin  = $^O eq 'cygwin'   ? \&TRUE : \&FALSE unless defined &is_cygwin;
- *is_linux   = $^O eq 'linux'    ? \&TRUE : \&FALSE unless defined &is_linux;
- *is_hpux    = $^O =~ m/hpux/    ? \&TRUE : \&FALSE unless defined &is_hpux;
- *is_openbsd = $^O =~ m/openbsd/ ? \&TRUE : \&FALSE unless defined &is_openbsd;
+ *is_vms      = $^O eq 'VMS'       ? \&TRUE : \&FALSE unless defined &is_vms;
+ *is_mswin32  = $^O eq 'MSWin32'   ? \&TRUE : \&FALSE unless defined &is_mswin32;
+ *is_dos      = $^O eq 'dos'       ? \&TRUE : \&FALSE unless defined &is_dos;
+ *is_os2      = $^O eq 'os2'       ? \&TRUE : \&FALSE unless defined &is_os2;
+ *is_cygwin   = $^O eq 'cygwin'    ? \&TRUE : \&FALSE unless defined &is_cygwin;
+ *is_linux    = $^O eq 'linux'     ? \&TRUE : \&FALSE unless defined &is_linux;
+ *is_hpux     = $^O =~ m/hpux/     ? \&TRUE : \&FALSE unless defined &is_hpux;
+ *is_openbsd  = $^O =~ m/openbsd/  ? \&TRUE : \&FALSE unless defined &is_openbsd;
+ *is_freebsd  = $^O =~ m/freebsd/  ? \&TRUE : \&FALSE unless defined &is_freebsd;
+ *is_bsdsunix = $^O =~ m/bsdsunix/ ? \&TRUE : \&FALSE unless defined &is_bsdsunix;
 }
 
 sub _perldoc_elem {