Mercurial > pub > Impl
comparison Lib/IMPL/Web/View/TTLoader.pm @ 185:ae8072f2f2a3
IMPL::Web::View::TTDocument tests, fixes
author | cin |
---|---|
date | Thu, 29 Mar 2012 18:22:15 +0400 |
parents | 7525ea9a071a |
children | 4d0e1962161c |
comparison
equal
deleted
inserted
replaced
184:7525ea9a071a | 185:ae8072f2f2a3 |
---|---|
75 } | 75 } |
76 | 76 |
77 sub _appendExt { | 77 sub _appendExt { |
78 my ($this,$name) = @_; | 78 my ($this,$name) = @_; |
79 | 79 |
80 return $name unless $this->ext; | |
81 | |
80 if (length $this->ext and substr( $name, -length($this->ext) ) eq $this->ext) { | 82 if (length $this->ext and substr( $name, -length($this->ext) ) eq $this->ext) { |
81 return $name; | 83 return $name; |
82 } else { | 84 } else { |
83 return $name . $this->ext; | 85 return $name . $this->ext; |
84 } | 86 } |