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 } |
