- /* On upgrade, erase older packages of same color (if any). */
-
-- mi = rpmtsInitIterator(ts, RPMTAG_PROVIDENAME, rpmteN(p), 0);
-+ /* NOTE: in PLD we don't want to remove packages which only provided
-+ * %{name} (e.g. perl-modules in case of some newer perl modules),
-+ * so we use NAME instead of PROVIDENAME (as in vanilla rpm) here */
++# On upgrade, erase older packages of same color (if any).
++# "name" for RPMTAG_NAME, otherwise RPMTAG_PROVIDENAME
++#
++# in PLD Linux we don't want to remove packages which only provided
++# %{name} (e.g. perl-modules in case of some newer perl modules),
++# so we use NAME instead of PROVIDENAME (as in vanilla rpm) here
++%_upgrade_tag name