From 1193fdece4ff5b5bc127e638db5eeb018014c7af Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Tue, 18 Oct 2011 18:08:29 +0200
Subject: Make it possible to compile with an R14B compiler.

---
 lib/inets/src/tftp/tftp.erl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'lib/inets/src/tftp')

diff --git a/lib/inets/src/tftp/tftp.erl b/lib/inets/src/tftp/tftp.erl
index b33c0a98f4..8d8fce388d 100644
--- a/lib/inets/src/tftp/tftp.erl
+++ b/lib/inets/src/tftp/tftp.erl
@@ -224,6 +224,20 @@
 	 service_info/1
 	]).
 
+-ifdef('OTP-R14B-COMPILER').
+
+-export([behaviour_info/1]).
+
+behaviour_info(callbacks) ->
+    [{prepare, 6}, 
+     {open,    6}, 
+     {read,    1}, 
+     {write,   2}, 
+     {abort,   3}];
+behaviour_info(_) ->
+    undefined.
+
+-else.
 
 -type peer() :: {PeerType :: inet | inet6,
 		 PeerHost :: inet:ip_address(),
@@ -266,6 +280,8 @@
 
 -callback abort(Code :: error_code(), string(), State :: term()) -> 'ok'.
 
+-endif.
+
 -include("tftp.hrl").
 
 
-- 
cgit v1.2.3