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
