Browse Source

* fixed ForceExtension() after r16905 in case the input did not have an
exitension (it cut off the last character of the filename in that case)

git-svn-id: trunk@16911 -

Jonas Maebe 14 years ago
parent
commit
e8f654ffa5
1 changed files with 1 additions and 1 deletions
  1. 1 1
      tests/utils/dotest.pp

+ 1 - 1
tests/utils/dotest.pp

@@ -296,7 +296,7 @@ begin
   while (j>0) and (Hstr[j]<>'.') do
    dec(j);
   if j=0 then
-   j:=length(Hstr);
+   j:=length(Hstr)+1;
   if Ext<>'' then
    ForceExtension:=Copy(Hstr,1,j-1)+'.'+Ext
   else