From 9eea97221e1c9eb872013096f03f99786ad811e5 Mon Sep 17 00:00:00 2001
From: maxice8 <thinkabit.ukim@gmail.com>
Date: Tue, 21 Nov 2017 06:35:27 -0200
Subject: [PATCH] build-style/perl-ModuleBuild.sh: add generic do_check
 function.

Closes #9408.
---
 common/build-style/perl-ModuleBuild.sh | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/common/build-style/perl-ModuleBuild.sh b/common/build-style/perl-ModuleBuild.sh
index 7a4eef5890f..b5f7ea8c2ff 100644
--- a/common/build-style/perl-ModuleBuild.sh
+++ b/common/build-style/perl-ModuleBuild.sh
@@ -24,6 +24,13 @@ do_build() {
 	LD="$CC" CFLAGS="$CFLAGS" LDFLAGS="$LDFLAGS" ./Build ${make_build_args}
 }
 
+do_check() {
+	if [ ! -x ./Build ]; then
+		msg_error "$pkgver: cannot find ./Build script!\n"
+	fi
+	./Build test
+}
+
 do_install() {
 	if [ ! -x ./Build ]; then
 		msg_error "$pkgver: cannot find ./Build script!\n"