diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2000-09-15 02:37:30 -0400 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-09-15 16:55:59 +0000 |
| commit | 2f5768b866885bc2ed8e8faa13e51aa5ce9671f0 (patch) | |
| tree | 64122cb6c3750f3ead2c443185f60fe16ac0cf2e /ext | |
| parent | f7f6dc2958777dbf7286a43a184d21ccf4210635 (diff) | |
| download | perl-2f5768b866885bc2ed8e8faa13e51aa5ce9671f0.tar.gz | |
Multiplicity & ithreads fix for sv.c/Encode.xs
Subject: [ID 20000915.004] Not OK: perl v5.7.1 +devel-7094 on alpha-dec_osf-thread-multi 4.0f (UNINSTALLED)
Message-Id: <200009151037.GAA07447@Orb.Nashua.NH.US>
p4raw-id: //depot/perl@7095
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Encode/Encode.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs index c9029e6d88..b4d256f2ca 100644 --- a/ext/Encode/Encode.xs +++ b/ext/Encode/Encode.xs @@ -3,7 +3,7 @@ #include "XSUB.h" #define UNIMPLEMENTED(x,y) y x (SV *sv, char *encoding) { \ - Perl_croak("panic_unimplemented"); \ + Perl_croak(aTHX_ "panic_unimplemented"); \ return (y)0; /* fool picky compilers */ \ } UNIMPLEMENTED(_encoded_utf8_to_bytes, I32) |