[libvirt] [TCK][PATCH] Enable tests with a .pl extension

[Mike Latimer]

The main libvirt-tck script only executes tests using the default (.t)
extension. This patch adds .t and .pl as valid extensions using the --ext
parameter. This is required to enable storage tests added in commit 97c6a506.

---
 Build.PL        | 2 +-
 bin/libvirt-tck | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/Build.PL b/Build.PL
index e682c3a..c93637d 100644
--- a/Build.PL
+++ b/Build.PL
@@ -29,7 +29,7 @@ sub process_pkgdata_files {
         my $name = $File::Find::name;
 	if (-d) {
 	    $tck_dirs{$name} = [];
-	} elsif (-f && /\.(t|sh|fwall|xml|dat)$/) {
+	} elsif (-f && /\.(t|sh|fwall|xml|dat|pl)$/) {
 	    push @{$tck_dirs{$dir}}, $name;
 	}
     };
diff --git a/bin/libvirt-tck b/bin/libvirt-tck
index 816234b..6261538 100644
--- a/bin/libvirt-tck
+++ b/bin/libvirt-tck
@@ -214,6 +214,11 @@ if ($timer) {
     push @newargv, "--timer";
 }
 
+# Run tests ending in both .t and .pl extensions
+foreach my $extension ('.t', '.pl') {
+    push @newargv, "--ext=$extension";
+}
+
 # This env variable is the only way to pass config into
 # the Sys::Virt::TCK module from here
 $ENV{LIBVIRT_TCK_CONFIG} = $config;
-- 
1.8.4.5