Revision cc849a74
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
| t/001compile.t | ||
|---|---|---|
| 74 | 74 |
if (-l $file) {
|
| 75 | 75 |
ok(1, "$file is a symlink"); |
| 76 | 76 |
} else {
|
| 77 |
local $TODO; |
|
| 78 |
$TODO = 'schema updates are not required to be strict now' if $file =~ m{^sql/Pg-upgrade2};
|
|
| 79 |
|
|
| 80 |
my $command = "$perlapp -c$T -I modules/fallback -I modules/override $file 2>&1"; |
|
| 77 |
my $command = "$perlapp -w -c$T -Imodules/fallback -Imodules/override -It -MSupport::CanonialGlobals $file 2>&1"; |
|
| 81 | 78 |
my $loginfo=`$command`; |
| 82 | 79 |
|
| 83 | 80 |
if ($loginfo =~ /syntax ok$/im) {
|
Auch abrufbar als: Unified diff
globale Variablen in ein Helfermodul ausgelagert