This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Switch from Carp to plain old warn in vms/ext/XSSymSet.pm
authorCraig A. Berry <craigberry@mac.com>
Thu, 8 Feb 2007 18:42:44 +0000 (18:42 +0000)
committerCraig A. Berry <craigberry@mac.com>
Thu, 8 Feb 2007 18:42:44 +0000 (18:42 +0000)
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

vms/ext/XSSymSet.pm

index 679ede4..18aa261 100644 (file)
@@ -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;