From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 8 Feb 2007 18:42:44 +0000 (+0000)
Subject: Switch from Carp to plain old warn in vms/ext/XSSymSet.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=622db3b875c7512ec2f05392f0939959b718d042;p=p5sagit%2Fp5-mst-13.2.git

Switch from Carp to plain old warn in vms/ext/XSSymSet.pm
because Carp now in some cases depends on things that may not
be available from miniperl or before extensions are built.

p4raw-id: //depot/perl@30177
---

diff --git a/vms/ext/XSSymSet.pm b/vms/ext/XSSymSet.pm
index 679ede4..18aa261 100644
--- a/vms/ext/XSSymSet.pm
+++ b/vms/ext/XSSymSet.pm
@@ -1,6 +1,5 @@
 package ExtUtils::XSSymSet;
 
-use Carp qw( &carp );
 use strict;
 use vars qw( $VERSION );
 $VERSION = '1.0';
@@ -69,7 +68,7 @@ sub trimsym {
       }
     }
   }
-  carp "Warning: long symbol $name\n\ttrimmed to $trimmed\n\t" unless $silent;
+  warn "Warning: long symbol $name\n\ttrimmed to $trimmed\n\t" unless $silent;
   return $trimmed;
 }
 
@@ -87,12 +86,12 @@ sub addsym {
     my($i) = "00";
     $trimmed = $self->trimsym($sym,$maxlen-3,$silent);
     while (exists $self->{"${trimmed}_$i"}) { $i++; }
-    carp "Warning: duplicate symbol $trimmed\n\tchanged to ${trimmed}_$i\n\t(original was $sym)\n\t"
+    warn "Warning: duplicate symbol $trimmed\n\tchanged to ${trimmed}_$i\n\t(original was $sym)\n\t"
       unless $silent;
     $trimmed .= "_$i";
   }
   elsif (not $silent and $trimmed ne $sym) {
-    carp "Warning: long symbol $sym\n\ttrimmed to $trimmed\n\t";
+    warn "Warning: long symbol $sym\n\ttrimmed to $trimmed\n\t";
   }
   $self->{$trimmed} = $sym;
   $self->{'__N+Map'}->{$sym} = $trimmed;