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

diff --git a/perl.c b/perl.c
index 0e412b1..7c881c4 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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)