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 }