Make getdata() return an empty list when no magic is present

[perl/modules/Variable-Magic.git] / Magic.xs

diff --git a/Magic.xs b/Magic.xs
index 13ffad0d042788455eff4888613b21f15ed8d74a..77b620999cf2a964ad1be719a2f49590701e30ba 100644 (file)
--- a/Magic.xs
+++ b/Magic.xs
@@ -1468,7 +1468,7 @@ PPCODE:
  sig  = vmg_wizard_sig(wiz);
  data = vmg_data_get(SvRV(sv), sig);
  if (!data)
-  XSRETURN_UNDEF;
+  XSRETURN_EMPTY;
  ST(0) = data;
  XSRETURN(1);