From 914597ced08140b6856f26dc23dff08828671c03 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 8 Oct 2013 08:17:36 +0200
Subject: "implement" create_transaction() in --env case (rule of least
 surprise)

(for rpmdrake --env)
---
 NEWS    | 2 ++
 URPM.pm | 8 ++++++++
 2 files changed, 10 insertions(+)

diff --git a/NEWS b/NEWS
index 01320a4..cf178cd 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- "implement" create_transaction() in --env case
+
 Version 4.28 - 3 October 2013
 
 - adapt to perl-5.18 random hash keys ordering
diff --git a/URPM.pm b/URPM.pm
index 0ef50e4..691fcc7 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -184,6 +184,14 @@ sub traverse_tag_find {
     $urpm->traverse_tag($tag, [ $name ], $callback);
 }
 
+
+#- this is used when faking a URPM::DB: $urpm can be used as-a $db
+#- (used for urpmi --env)
+sub create_transaction {
+    my ($urpm) = @_;
+    die "Installing is not supported with a fake environment!";
+}
+
 # wrapper around XS functions
 # it handles error cases
 sub _parse_hdlist_or_synthesis {
-- 
cgit v1.2.1