--- a/5.16.1/Pod/Perldoc.pm
+++ b/5.16.1/Pod/Perldoc.pm
@@ -1423,7 +1423,7 @@
 
      if(!$self->opt_i
         or $self->is_vms or $self->is_mswin32
-        or $self->Is_dos or $self->is_os2
+        or $self->is_dos or $self->is_os2
      ) {
         # On a case-forgiving file system, or if case is important,
     #  that is it, all we can do.