bump version to 20180529.1 (#589)

diff --git a/.perlcriticrc b/.perlcriticrc
index 44254f64eec3496921a596efb37623e0ecb9fdd8..0b8e4c862aa8b62df44425052ba06e0eb8a8bedd 100644 (file)
--- a/.perlcriticrc
+++ b/.perlcriticrc
@@ -46,6 +46,7 @@ severity = 2
 [-ValuesAndExpressions::ProhibitNoisyQuotes]
 [-ValuesAndExpressions::ProhibitNoisyQuotes]
 [-ValuesAndExpressions::ProhibitVersionStrings]
+[-ValuesAndExpressions::ProhibitImplicitNewlines]
 [-Variables::ProhibitLocalVars]
 [-Variables::ProhibitPackageVars]
 

diff --git a/Bugzilla.pm b/Bugzilla.pm
index 897433e478a0115b8c136442d2448d112702547d..5928e2e3f115bc3b2cc769057d82f345c45f0441 100644 (file)
--- a/Bugzilla.pm
+++ b/Bugzilla.pm
@@ -22,7 +22,7 @@ BEGIN {
     }
 }
 
-our $VERSION = '20180523.1';
+our $VERSION = '20180529.1';
 
 use Bugzilla::Auth;
 use Bugzilla::Auth::Persist::Cookie;

diff --git a/scripts/undo.pl b/scripts/undo.pl
index 852c786fd361512865f5a96decf8771e83a7e4a4..5de3104fa09e75edcca2619add62dce4099db1fb 100644 (file)
--- a/scripts/undo.pl
+++ b/scripts/undo.pl
@@ -65,7 +65,7 @@ sub undo {
     }
 
     my $dbh = Bugzilla->dbh;
-    my @bug_ids = sort { $b <=> $a } keys %action;
+    my @bug_ids = reverse sort { $a <=> $b } keys %action;
     say 'Found ', 0 + @bug_ids, ' bugs';
     foreach my $bug_id (@bug_ids) {
         $dbh->bz_start_transaction;
@@ -113,11 +113,11 @@ sub undo {
                 $previous_last_ts, $previous_last_ts, $bug_id );
             my $del_comments = $dbh->prepare('DELETE FROM longdescs WHERE comment_id = ?');
             my $del_activity = $dbh->prepare('DELETE FROM bugs_activity WHERE id = ?');
-            foreach my $c (@{ $action->{remove_comments}}) {
-                $del_comments->execute($c->{id}) or die "failed to delete comment $c->{id}";
+            foreach my $comment (@{ $action->{remove_comments}}) {
+                $del_comments->execute($comment->{id}) or die "failed to delete comment $c->{id}";
             }
-            foreach my $a (@{ $action->{remove_activities}}) {
-                $del_activity->execute($a->{id}) or die "failed to delete comment $a->{id}";
+            foreach my $activity (@{ $action->{remove_activities}}) {
+                $del_activity->execute($activity->{id}) or die "failed to delete comment $a->{id}";
             }
             tag_for_recount_from_bug($bug_id);
             $dbh->bz_commit_transaction;