13 lines
517 B
Diff
13 lines
517 B
Diff
diff -up Test-Unit-0.25/lib/Test/Unit/TestCase.pm.orig Test-Unit-0.25/lib/Test/Unit/TestCase.pm
|
|
--- Test-Unit-0.25/lib/Test/Unit/TestCase.pm.orig 2012-06-12 15:38:32.058355073 +0200
|
|
+++ Test-Unit-0.25/lib/Test/Unit/TestCase.pm 2012-06-12 15:38:58.340484917 +0200
|
|
@@ -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 {
|