commit f6ad55d804ac741b59fe37dd092787113847661c
author Robert Newson <rnewson@apache.org> Thu Jul 14 15:56:42 2016 +0100
committer Robert Newson <rnewson@apache.org> Thu Jul 14 15:56:42 2016 +0100
tree d09a956d2737bf9f9d122fb351704d93c32fddd4
parent 5a7f2868c720bc428e6c888dc61d988b9a5f63f1

Use erl_scan:line/1 if present

COUCHDB-3058

src/couch_epi_codegen.erl

diff --git a/src/couch_epi_codegen.erl b/src/couch_epi_codegen.erl
index 1901887..978f0bb 100644
--- a/src/couch_epi_codegen.erl
+++ b/src/couch_epi_codegen.erl
@@ -66,6 +66,15 @@
         {dot, _} -> Tokens;
         {';', _} -> Tokens;
         Token ->
-            {line, Line} = erl_scan:token_info(Token, line),
+            Line = line(Token),
             Tokens ++ [{dot, Line}]
     end.
+
+line(Token) ->
+    case erlang:function_exported(erl_scan, line, 1) of
+        true ->
+            erl_scan:line(Token);
+        false ->
+            {line, Line} = erl_scan:token_info(Token, line),
+            Line
+    end.