char* oldFILE = CopFILE(PL_curcop);
  CopFILE_set(PL_curcop, __FILE__);
  ...
  CopFILE_free(PL_curcop);
  CopFILE_set(PL_curcop, oldFILE);