Stop Devel'Peek'Dump with no args from crashing

I accidentally broke this in commit xxxxxxxx (5.19.3).  The crash hap-
pened at compile time.

2 files changed, 13 insertions, 0 deletions

diff --git a/ext/Devel-Peek/Peek.xs b/ext/Devel-Peek/Peek.xs
index 73094b8efc..91b7555841 100644
--- a/ext/Devel-Peek/Peek.xs
+++ b/ext/Devel-Peek/Peek.xs
@@ -389,6 +389,13 @@ S_ck_dump(pTHX_ OP *entersubop, GV *namegv, SV *cv)
 	prev = aop;
 	aop = aop->op_sibling;
     }
+    if (!aop) {
+	/* It doesn’t really matter what we return here, as this only
+	   occurs after yyerror.  */
+	op_free(first);
+	return entersubop;
+    }
+
     /* aop now points to the second arg if there is one, the cvop otherwise
      */
     if (aop->op_sibling) {
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
index 929ce79b4a..7025b45b38 100644
--- a/ext/Devel-Peek/t/Peek.t
+++ b/ext/Devel-Peek/t/Peek.t
@@ -1039,6 +1039,12 @@ SV = PV\($ADDR\) at $ADDR
   LEN = \d+
 SUBSTR
 
+# Dump with no arguments
+eval 'Dump';
+like $@, qr/^Not enough arguments for Devel::Peek::Dump/, 'Dump;';
+eval 'Dump()';
+like $@, qr/^Not enough arguments for Devel::Peek::Dump/, 'Dump()';
+
 SKIP: {
     skip "Not built with usemymalloc", 2
       unless $Config{usemymalloc} eq 'y';