# HG changeset patch
# User cin
# Date 1360617876 -14400
# Node ID 68d905f8dc433d68aa5c66e66c159f060d9604a5
# Parent  a8dbddf491dd9002a4560aeab52ff62a4cd6748b
*IMPL::SQL fixed warnings

diff -r a8dbddf491dd -r 68d905f8dc43 Lib/IMPL/SQL/Schema/Column.pm
--- a/Lib/IMPL/SQL/Schema/Column.pm	Mon Feb 11 00:58:22 2013 +0400
+++ b/Lib/IMPL/SQL/Schema/Column.pm	Tue Feb 12 01:24:36 2013 +0400
@@ -24,7 +24,7 @@
     $this->{$name} or
         die new IMPL::InvalidArgumentException('A column name is required');
     
-    $this->{$isNullable} = 0 if not exists $this->{$isNullable};
+    $this->{$isNullable} ||= 0; # if not exists $this->{$isNullable};
     
     is( $this->{$type}, typeof IMPL::SQL::Schema::Type) or
         die new IMPL::InvalidArgumentException('a type is required for the column',$this->{$name});
diff -r a8dbddf491dd -r 68d905f8dc43 Lib/IMPL/SQL/Schema/Constraint/ForeignKey.pm
--- 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);
 }
diff -r a8dbddf491dd -r 68d905f8dc43 Lib/IMPL/TargetException.pm
--- a/Lib/IMPL/TargetException.pm	Mon Feb 11 00:58:22 2013 +0400
+++ b/Lib/IMPL/TargetException.pm	Tue Feb 12 01:24:36 2013 +0400
@@ -18,7 +18,7 @@
 }
 
 use IMPL::Resources::Strings {
-    messageFormat => "An invocation target throws an exception '%innerException.message%' \n%innerException.callStack%\n__END_OF_INNER_EXCEPTION__\n"
+    message => "An invocation target throws an exception '%innerException.message%' \n%innerException.callStack%\n__END_OF_INNER_EXCEPTION__\n"
 };
 
 1;
\ No newline at end of file