Change 30177: Switch from Carp to plain old warn in vms/ext/XSSymSet.pm

[Craig A . Berry]

Change 30177 by [EMAIL PROTECTED] on 2007/02/08 18:42:44

        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.

Affected files ...

... //depot/perl/vms/ext/XSSymSet.pm#7 edit

Differences ...

==== //depot/perl/vms/ext/XSSymSet.pm#7 (text) ====
Index: perl/vms/ext/XSSymSet.pm
--- perl/vms/ext/XSSymSet.pm#6~1837~    1998-09-23 01:45:58.000000000 -0700
+++ perl/vms/ext/XSSymSet.pm    2007-02-08 10:42:44.000000000 -0800
@@ -1,6 +1,5 @@
 package ExtUtils::XSSymSet;
 
-use Carp qw( &carp );
 use strict;
 use vars qw( $VERSION );
 $VERSION = '1.0';
@@ -69,7 +68,7 @@
       }
     }
   }
-  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 @@
     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;
End of Patch.