Merge branch 'master' of https://github.com/pmqs/BerkeleyDB

pmqs · Jul 18, 2019 · 4273345 · 4273345
2 parents 27b499f + 80ca9b7
commit 4273345
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/.appveyor.yml b/.appveyor.yml
@@ -0,0 +1,17 @@
+# File sourced from http://blogs.perl.org/users/mauke/2017/10/automated-testing-on-windows-with-appveyor.html
+
+cache:
+  - C:\strawberry
+
+install:
+  - if not exist "C:\strawberry" choco install strawberryperl -y
+  - set PATH=C:\strawberry\c\bin;C:\strawberry\perl\site\bin;C:\strawberry\perl\bin;%PATH%
+  - cd %APPVEYOR_BUILD_FOLDER%
+  - cpanm --quiet --installdeps --with-develop --notest .
+
+build_script:
+  - perl Makefile.PL
+  - gmake
+
+test_script:
+  - gmake test
diff --git a/BerkeleyDB.xs b/BerkeleyDB.xs
@@ -838,6 +838,9 @@ db_strerror(int err)
 static char *
 my_db_strerror(int err)
 {
+#ifdef dTHX
+    dTHX;
+#endif
     static char buffer[1000] ;
     SV * sv = perl_get_sv(ERR_BUFF, FALSE) ;
     sprintf(buffer, "%d: %s", err, db_strerror(err)) ;