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

*IMPL::SQL fixed warnings
author cin
date Tue, 12 Feb 2013 01:24:36 +0400
parents 4ddb27ff4a0b
children
comparison
equal deleted inserted replaced
281:a8dbddf491dd 282:68d905f8dc43
52 } 52 }
53 53
54 sub SameValue { 54 sub SameValue {
55 my ($this,$other) = @_; 55 my ($this,$other) = @_;
56 56
57 uc $this->onDelete eq uc $other->onDelete or return 0; 57 uc($this->onDelete || '') eq uc($other->onDelete || '')or return 0;
58 uc $this->onUpdate eq uc $other->onUpdate or return 0; 58 uc($this->onUpdate || '') eq uc($other->onUpdate || '') or return 0;
59 59
60 return $this->SUPER::SameValue($other); 60 return $this->SUPER::SameValue($other);
61 } 61 }
62 62
63 63