diff options
| author | Larry Wall <lwall@netlabs.com> | 1995-03-12 22:32:14 -0800 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1995-03-12 22:32:14 -0800 |
| commit | 748a93069b3d16374a9859d1456065dd3ae11394 (patch) | |
| tree | 308ca14de9933a313dceacce8be77db67d9368c7 /gv.h | |
| parent | fec02dd38faf8f83471b031857d89cb76fea1ca0 (diff) | |
| download | perl-748a93069b3d16374a9859d1456065dd3ae11394.tar.gz | |
Perl 5.001perl-5.001
[See the Changes file for a list of changes]
Diffstat (limited to 'gv.h')
| -rw-r--r-- | gv.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -70,10 +70,10 @@ HV *GvHVn(); #define GvGP(gv) (GvXPVGV(gv)->xgv_gp) #define GvNAME(gv) (GvXPVGV(gv)->xgv_name) #define GvNAMELEN(gv) (GvXPVGV(gv)->xgv_namelen) -#define GvENAME(gv) GvNAME(GvEGV(gv)) +#define GvENAME(gv) GvNAME(GvEGV(gv) ? GvEGV(gv) : gv) #define GvSTASH(gv) (GvXPVGV(gv)->xgv_stash) -#define GvESTASH(gv) GvSTASH(GvEGV(gv)) +#define GvESTASH(gv) GvSTASH(GvEGV(gv) ? GvEGV(gv) : gv) #define Nullgv Null(GV*) |