avoid warnings in change#4839

p4raw-link: @4839 on //depot/perl: 191f2cf3f90fff5e4eb7a8663a83ed6c7031cf5d

p4raw-id: //depot/perl@4846

diff --git a/lib/Carp/Heavy.pm b/lib/Carp/Heavy.pm
index e496fa4..553a0ed 100644 (file)
--- a/lib/Carp/Heavy.pm
+++ b/lib/Carp/Heavy.pm
@@ -130,6 +130,8 @@ sub longmess_heavy {
 
 # ancestors() returns the complete set of ancestors of a module
 
+sub ancestors($$);
+
 sub ancestors($$){
     my( $pack, $href ) = @_;
     if( @{"${pack}::ISA"} ){