Add .mailmap to make git shortlog -e -s changes where necessary.

genio · genio · commit 41a79978100b · 2018-09-04T20:21:20.000-04:00
Add .gitignore so that several build files don't try to find their
way into the repo.
Add .appveyor.cmd and .appveyor.yml to aid in automated testing via
AppVeyor.com.
Update Makefile.PL to ensure constant is lowercased and gmake won't
throw errors during the build. Also, line endings.
Update the changelog
diff --git a/.appveyor.cmd b/.appveyor.cmd
@@ -0,0 +1,66 @@
+@echo off
+call :%*
+goto :eof
+
+:perl_setup
+if not defined perl_type set perl_type=strawberry
+cinst -y curl
+if "%perl_type%" == "cygwin" (
+  start /wait c:\cygwin\setup-x86.exe -q -g -P perl -P binutils -P make -P gcc -P gcc-core -P gcc-g++ -P make -P pkg-config -P libcrypt-devel -P openssl-devel -P curl
+  set "PATH=C:\cygwin\usr\local\bin;C:\cygwin\bin;%PATH%"
+) else if "%perl_type%" == "strawberry" (
+  if not defined perl_version (
+    cinst -y StrawberryPerl
+  ) else (
+    cinst -y StrawberryPerl --version %perl_version%
+  )
+  if errorlevel 1 (
+    type C:\ProgramData\chocolatey\logs\chocolatey.log
+    exit /b 1
+  )
+  set "PATH=C:\Strawberry\perl\site\bin;C:\Strawberry\perl\bin;C:\Strawberry\c\bin;%PATH%"
+) else (
+  echo.Unknown perl type "%perl_type%"! 1>&2
+  exit /b 1
+)
+for /f "usebackq delims=" %%d in (`perl -MConfig -e"print $Config{make}"`) do set "make=%%d"
+set "perl=perl"
+set "cpanm=call .appveyor.cmd cpanm"
+set "cpan=%perl% -S cpan"
+set TAR_OPTIONS=--warning=no-unknown-keyword
+goto :eof
+
+:cpanm
+%perl% -S cpanm >NUL 2>&1
+if ERRORLEVEL 1 (
+  curl -V >NUL 2>&1
+  if ERRORLEVEL 1 cinst -y curl
+  curl -k -L https://cpanmin.us/ -o "%TEMP%\cpanm"
+  %perl% "%TEMP%\cpanm" -n App::cpanminus
+)
+set "cpanm=%perl% -S cpanm"
+%cpanm% %*
+goto :eof
+
+:local_lib
+if "%perl_type%" == "cygwin" goto :local_lib_cygwin
+%perl% -Ilib -Mlocal::lib=--shelltype=cmd %* > %TEMP%\local-lib.bat
+call %TEMP%\local-lib.bat
+del %TEMP%\local-lib.bat
+goto :eof
+
+:local_lib_cygwin
+for /f "usebackq delims=" %%d in (`sh -c "cygpath -w $HOME/perl5"`) do (
+  c:\perl\bin\perl.exe -Ilib -Mlocal::lib - %%d --shelltype=cmd > "%TEMP%\local-lib.bat"
+)
+setlocal
+  call "%TEMP%\local-lib.bat"
+endlocal & set "PATH=%PATH%"
+set "PATH_BACK=%PATH%"
+%perl% -Ilib -Mlocal::lib - --shelltype=cmd > "%TEMP%\local-lib.bat"
+call "%TEMP%\local-lib.bat"
+set "PATH=%PATH_BACK%"
+del "%TEMP%\local-lib.bat"
+goto :eof
+
+:eof
diff --git a/.appveyor.yml b/.appveyor.yml
@@ -0,0 +1,32 @@
+version: '{build}'
+shallow_clone: true
+
+matrix:
+  fast_finish: true
+
+environment:
+  matrix:
+    - perl_type: strawberry
+      perl_version: 5.26.1.1
+    - perl_type: strawberry
+      perl_version: 5.24.3.1
+    - perl_type: strawberry
+      perl_version: 5.22.3.1
+    - perl_type: strawberry
+      perl_version: 5.20.3.3
+    - perl_type: strawberry
+      perl_version: 5.18.4.1
+    - perl_type: strawberry
+      perl_version: 5.16.3.20170202
+    - perl_type: strawberry
+      perl_version: 5.14.4.1
+
+install:
+  - 'call .appveyor.cmd perl_setup'
+  - '%perl% -V'
+  - '%cpanm% --installdeps -n .'
+
+build: off
+
+test_script:
+  - '%cpanm% --test-only -v .'
diff --git a/.gitignore b/.gitignore
@@ -0,0 +1,27 @@
+Build
+/MANIFEST.SKIP.bak
+/MANIFEST.bak
+META.YML
+MYMETA*
+Makefile
+Makefile.old
+SSL
+blib
+blib/
+.build/
+_build/
+cover_db/
+/_eumm/
+/UV*
+Win32-Daemon-*/
+Win32-Daemon-*.tar.gz
+.perl-version
+pm_to_blib
+*.sw*
+*.tar.gz
+xx*
+*.bs
+*.o
+Daemon.cpp
+Daemon.o
+.vscode/
diff --git a/.mailmap b/.mailmap
@@ -0,0 +1,2 @@
+# https://www.kernel.org/pub/software/scm/git/docs/git-shortlog.html#_mapping_authors
+Chase Whitener <capoeirab@cpan.org> <cwhitener@gmail.com>
diff --git a/Changes b/Changes
@@ -1,4 +1,4 @@
-Win32::Daemon   
+Win32::Daemon
 HISTORY:
 
 20000618
@@ -7,9 +7,9 @@ HISTORY:
 		-QueryServiceConfig
 
 20011230 rothd@roth.net
-	- Fixed bug where service doesn't work properly with Windows NT 4. We were 
-	  defaulting by acccepting the SERVICE_ACCEPT_PARAMCHANGE and 
-	  SERVICE_ACCEPT_NETBINDCHANGE controls. However, they were introduced in 
+	- Fixed bug where service doesn't work properly with Windows NT 4. We were
+	  defaulting by acccepting the SERVICE_ACCEPT_PARAMCHANGE and
+	  SERVICE_ACCEPT_NETBINDCHANGE controls. However, they were introduced in
 	  Win2k so NT 4 coughed up blood with them.
 
 20010224
@@ -38,9 +38,9 @@ HISTORY:
             SERVICE_ACCEPT_SESSIONCHANGE
 
 20011221 rothd@roth.net
-        - Fixed bug where service doesn't work properly with Windows NT 4. We were 
-          defaulting by acccepting the SERVICE_ACCEPT_PARAMCHANGE and 
-          SERVICE_ACCEPT_NETBINDCHANGE controls. However, they were introduced in 
+        - Fixed bug where service doesn't work properly with Windows NT 4. We were
+          defaulting by acccepting the SERVICE_ACCEPT_PARAMCHANGE and
+          SERVICE_ACCEPT_NETBINDCHANGE controls. However, they were introduced in
           Win2k so NT 4 coughed up blood with them.
 
 20020108 rothd@roth.net
@@ -50,9 +50,9 @@ HISTORY:
           start, pause or stop. Fix was only in the Daemon.pm file.
 
 20020114 marc.pijnappels@nec-computers.com
-        - Fixed another bug where service wouldn't work on WinXP machines. Variable 
-          recognized_controls was wrongly initialized for WinXP systems. This 
-          rendered the service unable to start, pause or stop. Fix was only in 
+        - Fixed another bug where service wouldn't work on WinXP machines. Variable
+          recognized_controls was wrongly initialized for WinXP systems. This
+          rendered the service unable to start, pause or stop. Fix was only in
           the Daemon.pm file.
 
 20020605 rothd@roth.net
@@ -72,30 +72,30 @@ HISTORY:
           - SetSecurity()
         - Finished incorporating callback routines.
         - Added a few more events.
-      		
+
 
 20061222 rothd@roth.net
 	- Converted to XS file.
 	- Fixed callback heartbeat: now properly calls back with SERVICE_RUNNING (not SERVICE_CONTROL_RUNNING)
 	- StopService() will post WM_QUIT message to the ServiceMain() thread to shut down the service thread.
-	- Calling into StopService() will auto change the state to STOPPING/STOPPED so you do not need to 
+	- Calling into StopService() will auto change the state to STOPPING/STOPPED so you do not need to
 	  explicitly do so (calling State() or a callback returning STOPPING/STOPPED).
 
 20070102 rothd
 	- Cleaned up a bit.
-	- Added WM_QUIT message to the ServiceMain function. Now the Perl StopService() will 
+	- Added WM_QUIT message to the ServiceMain function. Now the Perl StopService() will
 	  post this message to shut down the service thread.
 	- Fixed bug where messages were posted to wrong thread.
 
 20080321 rothd
 	- Added support for SERVICE_CONTROL_PRESHUTDOWN.
-	- Callbacks can now return a state value. This is the functional equivilent of calling 
+	- Callbacks can now return a state value. This is the functional equivilent of calling
 	  Win32::Daemon::State( $NewState ) before returning:
 		//	sub EventCallback
 		//	{
 		//	  my( $Event, $Context ) = @_;
 		//		# Process the event
-		//		Win32::Daemon::State( $NewState );		
+		//		Win32::Daemon::State( $NewState );
 		//	  return;
 		//	}
 		//	=================== SAME AS ====================
@@ -105,11 +105,11 @@ HISTORY:
 		//		# Process the event
 		//	  return( $NewState );
 		//	}
-		
+
 	- Callback timer works correctly!
 	- CALLBACK_RUNNING has been depreciated and replaced with CALLBACK_TIMER. It is only called
 	  when the timer (set by CallbackTimer()) has expired. Use this as a heartbeat. You only need
-	  to set it once either with CallbackTimer() or passing in the timer value when calling into 
+	  to set it once either with CallbackTimer() or passing in the timer value when calling into
 	  StartService().
 	  Set the callback using "timer" as the callback name. Using "running" will also work but it
 	  is mapped to "timer". If you specify both, only "timer" will be registered.
@@ -132,6 +132,8 @@ HISTORY:
 	  64-bit value on Win64 (Haiko Strotbek). [rt#64577]
 
 XXXXXXXX Olivier Mengué
-        - POD cleanup
+	- POD cleanup
 	- Doc fix from Brian Wightman (github #1, #2): wait hint in service
 	  service status is in ms
+	- Fix the build by fixing the case sensitive Constant to constant
+	  (RT #126272 and RT #75506)
diff --git a/Makefile.PL b/Makefile.PL
@@ -1,29 +1,29 @@
-use strict;
-use warnings;
-
-use Config qw(%Config);
-use ExtUtils::MakeMaker;
-
-unless ($^O eq "MSWin32" || $^O eq "cygwin") {
-    die "OS unsupported\n";
-}
-
-require Win32;
-
-my %param = (
-    NAME          => 'Win32::Daemon',
-    VERSION_FROM  => 'Daemon.pm',
-    DEFINE        => '-DPERL_NO_GET_CONTEXT',
-    OBJECT        => 'CCallbackList$(OBJ_EXT) CCallbackTimer$(OBJ_EXT) Constant$(OBJ_EXT) CWinStation$(OBJ_EXT) Daemon$(OBJ_EXT) ServiceThread$(OBJ_EXT)',
-    XS            => { 'Daemon.xs' => 'Daemon.cpp' },
-);
-$param{INC} .= ' -EHsc' if $Config{'cc'} =~ /^cl/i;
-$param{NO_META} = 1 if eval "$ExtUtils::MakeMaker::VERSION" >= 6.10_03;
-WriteMakefile(%param);
-
-sub MY::xs_c {
-    '
-.xs.cpp:
-	$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs >xstmp.c && $(MV) xstmp.c $*.cpp
-';
-}
+use strict;
+use warnings;
+
+use Config qw(%Config);
+use ExtUtils::MakeMaker;
+
+unless ($^O eq "MSWin32" || $^O eq "cygwin") {
+    die "OS unsupported\n";
+}
+
+require Win32;
+
+my %param = (
+    NAME          => 'Win32::Daemon',
+    VERSION_FROM  => 'Daemon.pm',
+    DEFINE        => '-DPERL_NO_GET_CONTEXT',
+    OBJECT        => 'CCallbackList$(OBJ_EXT) CCallbackTimer$(OBJ_EXT) constant$(OBJ_EXT) CWinStation$(OBJ_EXT) Daemon$(OBJ_EXT) ServiceThread$(OBJ_EXT)',
+    XS            => { 'Daemon.xs' => 'Daemon.cpp' },
+);
+$param{INC} .= ' -EHsc' if $Config{'cc'} =~ /^cl/i;
+$param{NO_META} = 1 if eval "$ExtUtils::MakeMaker::VERSION" >= 6.10_03;
+WriteMakefile(%param);
+
+sub MY::xs_c {
+    '
+.xs.cpp:
+	$(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs >xstmp.c && $(MV) xstmp.c $*.cpp
+';
+}

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+# https://www.kernel.org/pub/software/scm/git/docs/git-shortlog.html#_mapping_authors`
	`2`	`+Chase Whitener <capoeirab@cpan.org> <cwhitener@gmail.com>`