Revision bfdfc9ee
Von Sven Schöling vor etwa 11 Jahren hinzugefügt
| t/rdbo_consistency.t | ||
|---|---|---|
| 49 | 49 |
|
| 50 | 50 |
sub test_use_in_all_exists_as_db {
|
| 51 | 51 |
foreach my $package (map { m/^use\s+(.+?);/; $1 } grep { '^use SL::DB::' } split m/\n/, $all_content) {
|
| 52 |
next unless $package; |
|
| 52 | 53 |
next unless $package =~ m/^SL::DB::(.+)/; |
| 53 | 54 |
my $file = $1; |
| 54 | 55 |
$file =~ s{::}{/}g;
|
Auch abrufbar als: Unified diff
warnings unter 5.12.4