SecBSD's official ports repository

devel/p5-Test-Unit/patches/patch-lib_Test_Unit_TestCase_pm

@@ -0,0 +1,14 @@
+Newer Perl does not allow defined with an array.
+
+Index: lib/Test/Unit/TestCase.pm
+--- lib/Test/Unit/TestCase.pm.orig
++++ lib/Test/Unit/TestCase.pm
+@@ -103,7 +103,7 @@ sub list_tests {
+     my $class = ref($_[0]) || $_[0];
+     my @tests = ();
+     no strict 'refs';
+-    if (defined(@{"$class\::TESTS"})) {
++    if (@{"$class\::TESTS"}) {
+         push @tests, @{"$class\::TESTS"};
+     }
+     else {