perl 5.0 alpha 3

[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]

1 files changed, 2 insertions, 0 deletions

diff --git a/sv.h b/sv.h
index 8153d16d25..f9ba6ab759 100644
--- a/sv.h
+++ b/sv.h
@@ -363,6 +363,8 @@ struct xpvfm {
 	do { assert(SvTYPE(sv) >= SVt_PV); \
 		(((XPV*)  SvANY(sv))->xpv_cur = val - SvPV(sv)); } while (0)
 
+#define SvCUROK(sv) (SvPOK(sv) ? SvCUR(sv) : 0)
+
 #define BmRARE(sv)	((XPVBM*)  SvANY(sv))->xbm_rare
 #define BmUSEFUL(sv)	((XPVBM*)  SvANY(sv))->xbm_useful
 #define BmPREVIOUS(sv)	((XPVBM*)  SvANY(sv))->xbm_previous