var\r
p : ppchar;\r
begin\r
- p := unixutil.StringToPPChar(Todo,1);\r
+ p := unixutil.StringToPPChar(Todo,0);\r
if (p=nil) or (p^=nil) then exit;\r
fpexecv(p^,p);\r
end;\r
IPV6_V6ONLY = 26;\r
{$endif}\r
{$endif}\r
+ {$ifdef freebsd}\r
+ //freepascal doesn't seem to define IPV6_V6ONLY on freebsd, the definition\r
+ //here is taken from the include files of a freebsd 8 system\r
+ const\r
+ IPV6_V6ONLY = 27;\r
+ {$endif}\r
+\r
{$endif}\r
-
\ No newline at end of file
+\r
+ \r