diff options
| author | Hans Bolinder <[email protected]> | 2016-01-20 15:01:06 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2016-01-20 15:01:06 +0100 |
| commit | 1b883a0a8163545f107c7f315990417726b54235 (patch) | |
| tree | feaa2455a648f99c1ff5bb83ff256833576c79bd | |
| parent | 72ef104bc85f5fec2e4203314e239dde2ff58e83 (diff) | |
| download | otp-1b883a0a8163545f107c7f315990417726b54235.tar.gz otp-1b883a0a8163545f107c7f315990417726b54235.tar.bz2 otp-1b883a0a8163545f107c7f315990417726b54235.zip | |
common_test: Fix a Dialyzer warning
| -rw-r--r-- | lib/common_test/src/ct_make.erl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/common_test/src/ct_make.erl b/lib/common_test/src/ct_make.erl index f4b81a0ef6..e7a9cfa843 100644 --- a/lib/common_test/src/ct_make.erl +++ b/lib/common_test/src/ct_make.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2009-2013. All Rights Reserved. +%% Copyright Ericsson AB 2009-2016. All Rights Reserved. %% %% Licensed under the Apache License, Version 2.0 (the "License"); %% you may not use this file except in compliance with the License. @@ -324,10 +324,11 @@ check_includes(File, IncludePath, ObjMTime) -> end. check_includes2(Epp, File, ObjMTime) -> + A1 = erl_anno:new(1), case epp:parse_erl_form(Epp) of - {ok, {attribute, 1, file, {File, 1}}} -> + {ok, {attribute, A1, file, {File, A1}}} -> check_includes2(Epp, File, ObjMTime); - {ok, {attribute, 1, file, {IncFile, 1}}} -> + {ok, {attribute, A1, file, {IncFile, A1}}} -> case file:read_file_info(IncFile) of {ok, #file_info{mtime=MTime}} when MTime>ObjMTime -> epp:close(Epp), |