Documentation in File::Spec (was Re: minor File::Spec

[perl5.git] / pp.h

diff --git a/pp.h b/pp.h
index 61fadc3..4474d1a 100644 (file)
--- a/pp.h
+++ b/pp.h
@@ -344,6 +344,7 @@ See C<PUSHu>.
           if (PL_amagic_generation) { \
            SV* tmpsv; \
            SV* arg= sp[shift]; \
+          if(0) goto am_again;  /* shut up unused warning */ \
          am_again: \
            if ((SvAMAGIC(arg))&&\
                (tmpsv=AMG_CALLun(arg,meth))) {\