aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-11-15 16:14:38 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-11-15 16:14:38 +0000
commit8b68a85b925a9e6d26f50d60a15a0ca8c50c26d8 (patch)
tree6817bc4b7eccee6a4938c2ff2cfc841c5bfa9e54
parentf8da75018737ae9e54609e25560e4d3d8fb35d46 (diff)
downloadperl-URPM-8b68a85b925a9e6d26f50d60a15a0ca8c50c26d8.tar
perl-URPM-8b68a85b925a9e6d26f50d60a15a0ca8c50c26d8.tar.gz
perl-URPM-8b68a85b925a9e6d26f50d60a15a0ca8c50c26d8.tar.bz2
perl-URPM-8b68a85b925a9e6d26f50d60a15a0ca8c50c26d8.tar.xz
perl-URPM-8b68a85b925a9e6d26f50d60a15a0ca8c50c26d8.zip
Add an URPM::Package::dump_flags method, to help debugging the depsolver
-rw-r--r--URPM.pm16
1 files changed, 16 insertions, 0 deletions
diff --git a/URPM.pm b/URPM.pm
index 240de45..04c3e2d 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -168,6 +168,22 @@ sub add_macro {
package URPM::Package;
our @ISA = qw(); # help perl_checker
+#- debug help for urpmi
+sub dump_flags {
+ my ($pkg) = @_;
+ <<EODUMP;
+available: ${\($pkg->flag_available)}
+base: ${\($pkg->flag_base)}
+disable_obsolete: ${\($pkg->flag_disable_obsolete)}
+installed: ${\($pkg->flag_installed)}
+requested: ${\($pkg->flag_requested)}
+required: ${\($pkg->flag_required)}
+selected: ${\($pkg->flag_selected)}
+skip: ${\($pkg->flag_skip)}
+upgrade: ${\($pkg->flag_upgrade)}
+EODUMP
+}
+
package URPM::Transaction;
our @ISA = qw(); # help perl_checker