diff -Nur Perl-Critic-0.21/lib/Perl/Critic/Policy/Miscellanea/RequireRcsKeywords.pm Perl-Critic-rjbs/lib/Perl/Critic/Policy/Miscellanea/RequireRcsKeywords.pm
--- Perl-Critic-0.21/lib/Perl/Critic/Policy/Miscellanea/RequireRcsKeywords.pm 2006-11-05 21:07:52.000000000 -0500
+++ Perl-Critic-rjbs/lib/Perl/Critic/Policy/Miscellanea/RequireRcsKeywords.pm 2006-11-08 19:11:17.000000000 -0500
@@ -100,6 +100,7 @@
sub _wanted {
my ( undef, $elem ) = @_;
return $elem->isa('PPI::Token::Comment')
+ || $elem->isa('PPI::Token::Pod')
|| $elem->isa('PPI::Token::Quote::Single')
|| $elem->isa('PPI::Token::Quote::Literal');
}
diff -Nur Perl-Critic-0.21/t/20_policies_miscellanea.t Perl-Critic-rjbs/t/20_policies_miscellanea.t
--- Perl-Critic-0.21/t/20_policies_miscellanea.t 2006-11-05 21:07:51.000000000 -0500
+++ Perl-Critic-rjbs/t/20_policies_miscellanea.t 2006-11-08 19:10:50.000000000 -0500
@@ -9,7 +9,7 @@
use strict;
use warnings;
-use Test::More tests => 11;
+use Test::More tests => 12;
# common P::C testing tools
use Perl::Critic::TestUtils qw(pcritique);
@@ -33,6 +33,21 @@
#----------------------------------------------------------------
$code = <<'END_PERL';
+=pod
+
+ $Revision: 809 $
+ $Source$
+ $Date: 2006-11-05 18:01:38 -0800 (Sun, 05 Nov 2006) $
+
+=cut
+END_PERL
+
+$policy = 'Miscellanea::RequireRcsKeywords';
+is( pcritique($policy, \$code), 0, $policy);
+
+#----------------------------------------------------------------
+
+$code = <<'END_PERL';
# $Revision: 809 $
# $Source$
# $Date: 2006-11-05 18:01:38 -0800 (Sun, 05 Nov 2006) $
