Mercurial > pub > Impl

diff Lib/IMPL/SQL/Schema/Constraint/ForeignKey.pm @ 282:68d905f8dc43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*IMPL::SQL fixed warnings
author cin
date Tue, 12 Feb 2013 01:24:36 +0400
parents 4ddb27ff4a0b
children
line wrap: on
line diff
--- a/Lib/IMPL/SQL/Schema/Constraint/ForeignKey.pm	Mon Feb 11 00:58:22 2013 +0400
+++ b/Lib/IMPL/SQL/Schema/Constraint/ForeignKey.pm	Tue Feb 12 01:24:36 2013 +0400
@@ -54,8 +54,8 @@
 sub SameValue {
     my ($this,$other) = @_;
     
-    uc $this->onDelete eq uc $other->onDelete or return 0;
-    uc $this->onUpdate eq uc $other->onUpdate or return 0;
+    uc($this->onDelete || '') eq uc($other->onDelete || '')or return 0;
+    uc($this->onUpdate || '') eq uc($other->onUpdate || '') or return 0;
     
     return $this->SUPER::SameValue($other);
 }