diff options
| author | Olivier Blin <oblin@mandriva.com> | 2007-12-19 13:37:35 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2007-12-19 13:37:35 +0000 |
| commit | 6fbd015fea464f061e09c62de25666782031175e (patch) | |
| tree | 2c4d8bd06163e1e628f0cf300db32d0b09e15053 | |
| parent | 08dcf423248b79611f972c9397b34c7b61499c04 (diff) | |
| download | mga-youri-submit-6fbd015fea464f061e09c62de25666782031175e.tar mga-youri-submit-6fbd015fea464f061e09c62de25666782031175e.tar.gz mga-youri-submit-6fbd015fea464f061e09c62de25666782031175e.tar.bz2 mga-youri-submit-6fbd015fea464f061e09c62de25666782031175e.tar.xz mga-youri-submit-6fbd015fea464f061e09c62de25666782031175e.zip | |
add spuk's debug code for bug 34999
| -rw-r--r-- | lib/Youri/Submit/Action/Archive.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/Youri/Submit/Action/Archive.pm b/lib/Youri/Submit/Action/Archive.pm index e902d76..e0ad4b3 100644 --- a/lib/Youri/Submit/Action/Archive.pm +++ b/lib/Youri/Submit/Action/Archive.pm @@ -45,6 +45,18 @@ sub run { $repository->get_replaced_packages($package, $target, $define) ) { my $file = $replaced_package->get_file(); + + # trap for debugging bug 34999 + if ($file =~ /(2007\.[01]|2008\.0).*\/(updates|release)/) { + my $bugmsg = "BUG#34999 WARNING: trying to remove from a release: $file\n"; + open(BUG34999LOG, '>>', "/home/mandrake/bug34999.log"); + print $bugmsg; + print BUG34999LOG localtime().": ".$bugmsg; + close BUG34999LOG; + + next; + } + my ($rep_section, $rep_main_section) = $file =~ m,$path/(([^/]+)/.*)/[^/]+.rpm,; # We do accept duplicate version for other submedia of the same main media section print "(path '$path') file '$file' section '$rep_section' main_section '$rep_main_section'\n" if $self->{_verbose}; |