-module(otpbp_ct).

-ifndef(HAVE_ct__get_progname_0).
% OTP 21.0
-export([get_progname/0]).
-endif.

-ifndef(HAVE_ct__get_progname_0).
get_progname() ->
    case init:get_argument(progname) of
        {ok, [[Prog]]} -> Prog;
        _ -> "no_prog_name"
    end.
-endif.