From: Karl Williamson <public@khwilliamson.com>
Date: Fri, 20 May 2011 14:27:02 +0000 (-0600)
Subject: podcheck.t: Fully qualify carp call from package
X-Git-Tag: accepted/trunk/20130322.191538~4094
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ece9ad29e93f08cdb36e63f99da7ef1f49837e52;p=platform%2Fupstream%2Fperl.git

podcheck.t: Fully qualify carp call from package
---

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index f8f7c72..f343181 100644
--- 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;
     }