From 84d78eb7303a2024a7c31dbf1ef17c1815e84d3c Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
Date: Thu, 26 Jan 2006 16:40:42 +0100
Subject: [PATCH] Make dump and -u croak on Win32 and Cygwin to avoid confusion
 such as was seen here:

Subject: Weird Win32 error: "This application has requested the Runtime to terminate it in an unusual way."
Message-ID: <9b18b3110601260640x34b2442cnf5379d2f83b74187@mail.gmail.com>

p4raw-id: //depot/perl@26947
---
 perl.c           | 2 ++
 pod/perldiag.pod | 4 ++++
 pod/perlport.pod | 2 +-
 3 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/perl.c b/perl.c
index 0e412b1..7c881c4 100644
--- a/perl.c
+++ b/perl.c
@@ -3406,6 +3406,8 @@ Perl_my_unexec(pTHX)
 #  ifdef VMS
 #    include <lib$routines.h>
      lib$signal(SS$_DEBUG);  /* ssdef.h #included from vmsish.h */
+#  elif defined(WIN32) || defined(__CYGWIN__)
+    Perl_croak(aTHX_ "dump is not supported");
 #  else
     ABORT();		/* for use with undump */
 #  endif
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index b7983b9..43056c1 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1512,6 +1512,10 @@ subroutine or package before the current location.  You can use an empty
 (W misc) You used the obsolescent C<dump()> built-in function, without fully
 qualifying it as C<CORE::dump()>.  Maybe it's a typo.  See L<perlfunc/dump>.
 
+=item dump is not supported
+
+(F) Your machine doesn't support dump/undump.
+
 =item Duplicate free() ignored
 
 (S malloc) An internal routine called free() on something that had
diff --git a/pod/perlport.pod b/pod/perlport.pod
index 3458c7c..de753e7 100644
--- a/pod/perlport.pod
+++ b/pod/perlport.pod
@@ -1678,7 +1678,7 @@ Not implemented. (VMS, S<Plan 9>, VOS)
 
 Not useful. (S<Mac OS>, S<RISC OS>)
 
-Not implemented. (Win32)
+Not supported. (Cygwin, Win32)
 
 Invokes VMS debugger. (VMS)
 
-- 
1.8.3.1