Mercurial > pub > Impl

changeset 207:f534a60d5b01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor changes
author sergey
date Fri, 04 May 2012 02:09:13 +0400
parents c8fe3f84feba
children 3d433a977e3b
files Lib/IMPL/Config/Resolve.pm Lib/IMPL/Serialization.pm Lib/IMPL/Web/Application/Response.pm
diffstat 3 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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;
--- 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;
 	}
 }
--- 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);