2 files changed, 13 insertions, 1 deletions
diff --git a/NEWS b/NEWS
index 3c22d04..443cf4f 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,6 @@
 - enhanced doc
 - "implement" create_transaction() in --env case
+- $trans->order: add support for "deploops" option
 
 Version 4.28 - 3 October 2013
 
diff --git a/URPM.xs b/URPM.xs
index 287efbc..12cfa92 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -2601,11 +2601,22 @@ Trans_check(trans, ...)
   }
 
 void
-Trans_order(trans)
+Trans_order(trans, ...)
   URPM::Transaction trans
   PREINIT:
+  rpmtransFlags transFlags = RPMTRANS_FLAG_NONE;
   I32 gimme = GIMME_V;
+  int i;
   PPCODE:
+  for (i = 1; i < items-1; i+=2) {
+    STRLEN len;
+    char *s = SvPV(ST(i), len);
+
+    if (len == 8 && !memcmp(s, "deploops", 8)) {
+      if (SvIV(ST(i+1))) transFlags |= RPMTRANS_FLAG_DEPLOOPS;
+    }
+  }
+  rpmtsSetFlags(trans->ts, transFlags);
   if (rpmtsOrder(trans->ts) == 0) {
     if (gimme == G_SCALAR)
       mXPUSHs(newSViv(1));