Commit 477ff6db authored by Graham, Aaron's avatar Graham, Aaron
Browse files

Fix replace_pattern when pattern exactly matches entire string

parent 84cd4cdb

src/Strings.f90

+5 −1
Original line number Diff line number Diff line
@@ -575,8 +575,12 @@ FUNCTION replace_pattern(this,oldPat,newPat) RESULT(retStr) 
  !Set-up the new string

  IF(SIZE(tokens) > 1) THEN

    retStr = ''

  ELSE

    IF(this == oldPat) THEN

      retStr=newPat

    ELSE

      retStr = char(tokens(1))

    ENDIF

    RETURN

  ENDIF