# HG changeset patch
# User sergey
# Date 1336082953 -14400
# Node ID f534a60d5b0179220f672c20ccd3c241e3e7ca8a
# Parent  c8fe3f84feba5df171921f7df7cf37198b0ae0a4
minor changes

diff -r c8fe3f84feba -r f534a60d5b01 Lib/IMPL/Config/Resolve.pm
--- a/Lib/IMPL/Config/Resolve.pm	Thu May 03 16:48:39 2012 +0400
+++ b/Lib/IMPL/Config/Resolve.pm	Fri May 04 02:09:13 2012 +0400
@@ -8,7 +8,6 @@
 
 BEGIN {
     public property path => prop_all|prop_list;
-    carp "deprecated";
 }
 
 __PACKAGE__->PassThroughArgs;
diff -r c8fe3f84feba -r f534a60d5b01 Lib/IMPL/Serialization.pm
--- a/Lib/IMPL/Serialization.pm	Thu May 03 16:48:39 2012 +0400
+++ b/Lib/IMPL/Serialization.pm	Fri May 04 02:09:13 2012 +0400
@@ -284,9 +284,9 @@
 	sub _load_class {
 		return if $classes{$_[0]};
 		
-		die new IMPL::Exception("Invalid class name",$_[0]) unless $_[0] =~ m/^\w+(\:\:\w+)*$/;
+		die new IMPL::Exception("Invalid class name",$_[0]) unless $_[0] =~ m/^(\w+(?:\:\:\w+)*)$/;
 		
-		eval "require $_[0]";
+		eval "require $1";
 		$classes{$_[0]} = 1;
 	}
 }
diff -r c8fe3f84feba -r f534a60d5b01 Lib/IMPL/Web/Application/Response.pm
--- a/Lib/IMPL/Web/Application/Response.pm	Thu May 03 16:48:39 2012 +0400
+++ b/Lib/IMPL/Web/Application/Response.pm	Fri May 04 02:09:13 2012 +0400
@@ -46,7 +46,7 @@
 sub CTOR {
     my ($this,%args) = @_;
     
-    if (lc $this->streamOut eq 'memory') {
+    if ($this->streamOut and lc $this->streamOut eq 'memory') {
         my $dummy = '';
         open my $hout, '>:encoding(utf8)', \$dummy or die new IMPL::Exception("Failed to create memory stream",$!);
         $this->streamOut($hout);