Revision 95a60147
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
| scripts/rose_auto_create_model.pl | ||
|---|---|---|
| 120 | 120 |
|
| 121 | 121 |
# patch foreign keys |
| 122 | 122 |
my $foreign_key_definition = "SL::DB::AUTO::$package"->meta->perl_foreign_keys_definition(%args); |
| 123 |
$foreign_key_definition =~ s/::AUTO::/::/g; |
|
| 123 | 124 |
|
| 124 | 125 |
if ($definition =~ /\Q$foreign_key_definition\E/) {
|
| 125 | 126 |
my ($start, $end) = ($-[0], $+[0]); |
Auch abrufbar als: Unified diff
Bei foreign keys auch die ::AUTO:: namespaces löschen