#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

MODULE = Devel::ChangePackage  PACKAGE = Devel::ChangePackage

SV *
change_package (package)
    SV *package
  CODE:
    RETVAL = newSVsv(PL_curstname);
    PL_curstash = gv_stashsv(package, GV_ADD);
    sv_setsv(PL_curstname, package);
  OUTPUT:
    RETVAL