Attachment 4413 Details for Bug 10674 – try to fix

[patch] try to fix

10674.diff (text/plain), 1.39 KB, created by Thierry Vignaud on 2013-10-08 08:14:13 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Thierry Vignaud

Created: 2013-10-08 08:14:13 CEST

Size: 1.39 KB

patch

obsolete

>diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
>index f0ca57b..b5c8e36 100644
>--- a/Rpmdrake/gui.pm
>+++ b/Rpmdrake/gui.pm
>@@ -358,6 +358,7 @@ sub warn_if_no_pkg {
>     state $warned;
>     if (!$warned) {
>         $warned = 1;
>+	use Data::Dumper;
>         interactive_msg(N("Warning"),
>                         join("\n",
>                              N("The package \"%s\" was found.", $name),
>@@ -367,9 +368,13 @@ sub warn_if_no_pkg {
>                              N("Matching packages:"),
>                              '',
>                              join("\n", sort map {
>-                                 #-PO: this is list fomatting: "- <package_name> (medium: <medium_name>)"
>-                                 #-PO: eg: "- rpmdrake (medium: "Main Release"
>-                                 N("- %s (medium: %s)", $_, pkg2medium($pkgs->{$_}{pkg}, $urpm)->{name});
>+				 warn Dumper $pkgs->{$_};
>+				 warn "Medium: " . Dumper(eval { pkg2medium($pkgs->{$_}{pkg}, $urpm) }) . "\n";
>+                                 ref($pkgs->{$_}) ?
>+				     #-PO: this is list fomatting: "- <package_name> (medium: <medium_name>)"
>+				     #-PO: eg: "- rpmdrake (medium: "Main Release"
>+				     N("- %s (medium: %s)", $_, pkg2medium($pkgs->{$_}{pkg}, $urpm)->{name})
>+				     : N("- %s", $_);
>                              } grep { /^$short_name/ } keys %$pkgs),
>                          ),
>                         scroll => 1,

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index f0ca57b..b5c8e36 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -358,6 +358,7 @@ sub warn_if_no_pkg {
     state $warned;
     if (!$warned) {
         $warned = 1;
+	use Data::Dumper;
         interactive_msg(N("Warning"),
                         join("\n",
                              N("The package \"%s\" was found.", $name),
@@ -367,9 +368,13 @@ sub warn_if_no_pkg {
                              N("Matching packages:"),
                              '',
                              join("\n", sort map {
-                                 #-PO: this is list fomatting: "- <package_name> (medium: <medium_name>)"
-                                 #-PO: eg: "- rpmdrake (medium: "Main Release"
-                                 N("- %s (medium: %s)", $_, pkg2medium($pkgs->{$_}{pkg}, $urpm)->{name});
+				 warn Dumper $pkgs->{$_};
+				 warn "Medium: " . Dumper(eval { pkg2medium($pkgs->{$_}{pkg}, $urpm) }) . "\n";
+                                 ref($pkgs->{$_}) ?
+				     #-PO: this is list fomatting: "- <package_name> (medium: <medium_name>)"
+				     #-PO: eg: "- rpmdrake (medium: "Main Release"
+				     N("- %s (medium: %s)", $_, pkg2medium($pkgs->{$_}{pkg}, $urpm)->{name})
+				     : N("- %s", $_);
                              } grep { /^$short_name/ } keys %$pkgs),
                          ),
                         scroll => 1,

Actions: View | Diff

Attachments on bug 10674: 4413