Extensions/paster: Fix bug introduced by StrToInt.

It now raises an exception, so use StrToIntDef instead.
2011-07-26 19:30:41 +02:00 · 2011-07-26 19:30:41 +02:00 · 31df8c695a
parent a8cdf77d87
commit 31df8c695a
1 changed files with 1 additions and 1 deletions
--- a/Extensions/paster.sex
+++ b/Extensions/paster.sex
@ -87,7 +87,7 @@ begin
    HOST := HOSTDef;
  if (InputQuery(GetName + ' ' + GetVersion + ' Extension', 'Which ID would you like to grab?', Data)) then
  begin
-    if IntToStr(StrToInt(Data)) = Data then
+    if IntToStr(StrToIntDef(Data, -1)) = Data then
      Data := '{"paste_id": ' + Data + '}'
    else
      Data := '{"paste_id": "' + Data + '"}';