podcheck.t: Fully qualify carp call from package

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index f8f7c72..f343181 100644 (file)
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -497,7 +497,7 @@ package My::Pod::Checker {      # Extend Pod::Checker
             }
         }
 
-        carp("Couldn't extract line number from $message") if $message =~ /line \d+/;
+        Carp::carp("Couldn't extract line number from $message") if $message =~ /line \d+/;
         push @{$problems{$filename{$addr}}{$message}}, $opts;
         #push @{$problems{$self->get_filename}{$message}}, $opts;
     }