15 lines
402 B
Text
15 lines
402 B
Text
|
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 {
|