Fix pod warning for empty sections.

[perl5.git] / lib / DBM_Filter.pm

diff --git a/lib/DBM_Filter.pm b/lib/DBM_Filter.pm
index 8947c0c..612138e 100644 (file)
--- a/lib/DBM_Filter.pm
+++ b/lib/DBM_Filter.pm
@@ -2,7 +2,7 @@ package DBM_Filter ;
 
 use strict;
 use warnings;
 
 use strict;
 use warnings;

-our $VERSION = '0.02';
+our $VERSION = '0.03';

 
 package Tie::Hash ;
 
 
 package Tie::Hash ;
 


@@ -93,7 +93,7 @@ sub _do_Filter_Push
     
         no strict 'refs';
         # does the "DBM_Filter::$class" exist?
     
         no strict 'refs';
         # does the "DBM_Filter::$class" exist?

-       if ( ! defined %{ "${class}::"} ) {
+       if ( ! %{ "${class}::"} ) {

            # Nope, so try to load it.
             eval " require $class ; " ;
             croak "$caller: Cannot Load DBM Filter '$class': $@" if $@;
            # Nope, so try to load it.
             eval " require $class ; " ;
             croak "$caller: Cannot Load DBM Filter '$class': $@" if $@;


@@ -323,11 +323,7 @@ to be packaged into a stand-alone module.
 This module will arrange for the following methods to be available via
 the object returned from the C<tie> call.
 
 This module will arrange for the following methods to be available via
 the object returned from the C<tie> call.
 

-=head2 $db->Filter_Push()
-
-=head2 $db->Filter_Key_Push()
-
-=head2 $db->Filter_Value_Push()
+=head2 $db->Filter_Push() / $db->Filter_Key_Push() / $db->Filter_Value_Push()

 
 Add a filter to filter stack for the database, C<$db>. The three formats
 vary only in whether they apply to the DBM key, the DBM value or both.
 
 Add a filter to filter stack for the database, C<$db>. The three formats
 vary only in whether they apply to the DBM key, the DBM value or both.