Extensions/paster: Fix bug introduced by StrToInt.

It now raises an exception, so use StrToIntDef instead.
Villavu · Jul 26, 2011 · 31df8c6 · 31df8c6
1 parent a8cdf77
commit 31df8c6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 + '"}';