diff --git a/win32/bin/pl2bat.pl b/win32/bin/pl2bat.pl
index 443f5909e00b..4de3c883eb46 100644
--- a/win32/bin/pl2bat.pl
+++ b/win32/bin/pl2bat.pl
@@ -52,6 +52,7 @@
     $head = <<EOT;
 	\@rem = '--*-Perl-*--
 	\@echo off
+	set errorlevel=
 	if "%OS%" == "Windows_NT" goto WinNT
 	perl $OPT{'o'}
 	goto endofperl