Changeset 3491

Timestamp:

Dec 13, 2012 1:27:26 AM (5 months ago)

Author:

wmb

Message:

Ping utility - clean up properly (close network driver) if set-host aborts due to an unresolvable hostname.

File:

• ofw/inet/ping.fth (modified) (1 diff)

ofw/inet/ping.fth

@@ -247 +247 @@
 
 : $ping  ( ip$ -- )
-   open-net  " $set-host" $call-net
+   open-net
+   " $set-host" ['] $call-net catch  ?dup  if  ( x x errno )
+      .error 2drop  close-net  exit
+   then
    /ping-max " allocate-ip" $call-net to ping-packet
    try-pings