Bei foreign keys auch die ::AUTO:: namespaces löschen

[mfinanz.git] / scripts / rose_auto_create_model.pl

diff --git a/scripts/rose_auto_create_model.pl b/scripts/rose_auto_create_model.pl
index 3331c247e29df4bb2ea96728a86686702e52e814..2e746a6bdc389df18fe7eb48a11ff09164f4354f 100755 (executable)
--- a/scripts/rose_auto_create_model.pl
+++ b/scripts/rose_auto_create_model.pl
@@ -120,6 +120,7 @@ CODE
 
   # patch foreign keys
   my $foreign_key_definition = "SL::DB::AUTO::$package"->meta->perl_foreign_keys_definition(%args);
+  $foreign_key_definition =~ s/::AUTO::/::/g;
 
   if ($definition =~ /\Q$foreign_key_definition\E/) {
     my ($start, $end) = ($-[0], $+[0]);