Mercurial > pub > Impl

comparison Lib/IMPL/Web/Application/Response.pm @ 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 4d0e1962161c
children d6e2ea24af08
comparison
equal deleted inserted replaced
206:c8fe3f84feba 207:f534a60d5b01
44 ); 44 );
45 45
46 sub CTOR { 46 sub CTOR {
47 my ($this,%args) = @_; 47 my ($this,%args) = @_;
48 48
49 if (lc $this->streamOut eq 'memory') { 49 if ($this->streamOut and lc $this->streamOut eq 'memory') {
50 my $dummy = ''; 50 my $dummy = '';
51 open my $hout, '>:encoding(utf8)', \$dummy or die new IMPL::Exception("Failed to create memory stream",$!); 51 open my $hout, '>:encoding(utf8)', \$dummy or die new IMPL::Exception("Failed to create memory stream",$!);
52 $this->streamOut($hout); 52 $this->streamOut($hout);
53 } elsif (not $this->streamOut) { 53 } elsif (not $this->streamOut) {
54 $this->streamOut(*STDOUT); 54 $this->streamOut(*STDOUT);