RPM Package Manager, CVS Repository http://rpm5.org/cvs/ ____________________________________________________________________________
Server: rpm5.org Name: Jeff Johnson Root: /v/rpm/cvs Email: j...@rpm5.org Module: rpm Date: 06-May-2016 00:26:51 Branch: rpm-5_4 Handle: 2016050522265100 Modified files: (Branch: rpm-5_4) rpm/rpmio rpmperl.c Log: - perl: spew version info. Summary: Revision Changes Path 2.12.2.4 +11 -0 rpm/rpmio/rpmperl.c ____________________________________________________________________________ patch -p0 <<'@@ .' Index: rpm/rpmio/rpmperl.c ============================================================================ $ cvs diff -u -r2.12.2.3 -r2.12.2.4 rpmperl.c --- rpm/rpmio/rpmperl.c 24 Sep 2014 13:03:04 -0000 2.12.2.3 +++ rpm/rpmio/rpmperl.c 5 May 2016 22:26:51 -0000 2.12.2.4 @@ -1,6 +1,7 @@ #include "system.h" #include <rpmiotypes.h> +#include <rpmlog.h> #include <argv.h> #undef _ /* XXX everyone gotta be different */ @@ -91,6 +92,15 @@ return _rpmperlI; } +#if defined(WITH_PERLEMBED) +static void rpmperlInfo(void) +{ + int _lvl = RPMLOG_DEBUG; + + rpmlog(_lvl, "==================== perl-%s\n", PERL_VERSION_STRING); +} +#endif /* WITH_MRBEMBED */ + rpmperl rpmperlNew(char ** av, uint32_t flags) { rpmperl perl = @@ -125,6 +135,7 @@ /* XXX claimed necessary on HP-UX */ PERL_SYS_INIT3(&argc, (char ***)&argv, &environ); initialized++; + rpmperlInfo(); } perl->I = perl_alloc(); PERL_SET_CONTEXT(my_perl); @@ . ______________________________________________________________________ RPM Package Manager http://rpm5.org CVS Sources Repository rpm-cvs@rpm5.org