Fix stuff to make perl bindings happy
This commit is contained in:
parent
aeb681ea33
commit
86507d9637
|
@ -11,8 +11,8 @@ extern "C" {
|
|||
|
||||
R_LIB_VERSION_HEADER(r_magic);
|
||||
|
||||
#ifndef MAGIC
|
||||
#define MAGIC "/etc/magic"
|
||||
#ifndef MAGICFILE
|
||||
#define MAGICFILE "/etc/magic"
|
||||
#endif
|
||||
|
||||
#define R_MAGIC_PATH R2_LIBDIR"/radare2/"R2_VERSION"/magic"
|
||||
|
|
|
@ -256,7 +256,7 @@ struct mlist * file_apprentice(RMagic *ms, const char *fn, int action) {
|
|||
init_file_tables ();
|
||||
|
||||
if (!fn) fn = getenv ("MAGIC");
|
||||
if (!fn) fn = MAGIC;
|
||||
if (!fn) fn = MAGICFILE;
|
||||
|
||||
if ((mfn = strdup (fn)) == NULL) {
|
||||
file_oomem (ms, strlen (fn));
|
||||
|
|
Loading…
Reference in New Issue