diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 13:53:03 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 13:53:03 +0000 |
| commit | 3280af22f58e7b37514ed104858e2c2fc55ceeeb (patch) | |
| tree | 8fd8328859f022068272656f072a7ec4eecac0a6 /ext/attrs | |
| parent | ef6361f9c2260919aefcc17b1b80f8857c67a84a (diff) | |
| download | perl-3280af22f58e7b37514ed104858e2c2fc55ceeeb.tar.gz | |
PL_ prefix to all perlvars, part1
Builds and passes all tests at one limit i.e. -DPERL_GLOBAL_STRUCT
p4raw-id: //depot/ansiperl@1532
Diffstat (limited to 'ext/attrs')
| -rw-r--r-- | ext/attrs/attrs.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/attrs/attrs.xs b/ext/attrs/attrs.xs index dae612adaf..bc0df7082b 100644 --- a/ext/attrs/attrs.xs +++ b/ext/attrs/attrs.xs @@ -24,7 +24,7 @@ char * Class int i; CV *cv; PPCODE: - if (!compcv || !(cv = CvOUTSIDE(compcv))) + if (!PL_compcv || !(cv = CvOUTSIDE(PL_compcv))) croak("can't set attributes outside a subroutine scope"); for (i = 1; i < items; i++) { char *attr = SvPV(ST(i), na); |