File: 01_camel_case_bug_330088.diff

package info (click to toggle)
libclass-dbi-loader-relationship-perl 1%3A1.2-5
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 92 kB
  • sloc: perl: 126; makefile: 2
file content (19 lines) | stat: -rw-r--r-- 729 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
From: Stephen Quinney <sjq@debian.org>
Date: Wed, 12 Oct 2005 09:55:45 +0100
Origin: vendor
Bug-Debian: https://bugs.debian.org/330088
Subject: Problem with CamelCase classes and underscores in table names
Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=14756

--- libclass-dbi-loader-relationship-perl.orig/Relationship.pm
+++ libclass-dbi-loader-relationship-perl/Relationship.pm
@@ -93,8 +93,8 @@
     return "$from_c->$method($mapper => $to_c);\n".
            ($method ne "has_a" && "$to_c->has_a(".to_S($from)." => $from_c);\n") 
            if $DEBUG;
-    $from_c->$method($mapper => $to_c);
     $to_c->has_a(to_S($from) => $from_c) unless $method eq "has_a";
+    $from_c->$method($mapper => $to_c);
 }
 
 1;