scripts: git-update.sh: fix for non-master branches

[platform/upstream/gstreamer.git] / scripts / five-bugs-a-day.pl

diff --git a/scripts/five-bugs-a-day.pl b/scripts/five-bugs-a-day.pl
index 7fe614a..7a4b284 100755 (executable)
--- a/scripts/five-bugs-a-day.pl
+++ b/scripts/five-bugs-a-day.pl
@@ -1,4 +1,4 @@
-#!/bin/perl -w
+#!/usr/bin/env perl
 #
 # ----------------------------------------------------------------------------
 #
@@ -23,8 +23,8 @@
 #
 # You should have received a copy of the GNU Library General Public
 # License along with this library; if not, write to the
-# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-# Boston, MA 02111-1307, USA.
+# Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
+# Boston, MA 02110-1301, USA.
 #
 # ----------------------------------------------------------------------------
 #
@@ -38,7 +38,7 @@
 #
 #   MAILTO=you@nowhere.org
 #   # send ten random buglinks every day at 16.30
-#   30 16### /usr/bin/perl  /path/to/five-bugs-a-day.pl
+#   30 16 * * *  /usr/bin/perl  /path/to/five-bugs-a-day.pl
 #
 #
 # Yes, it's PERL, sorry.
@@ -46,12 +46,6 @@
 # Yes, I know the default is 10 bugs.
 #
 # ----------------------------------------------------------------------------
-#
-# Known bugs:
-#   - there may be an issue with apostrophes or quotes in bug summaries,
-#     descriptions sometimes get cut off
-#
-# ----------------------------------------------------------------------------
 
 # ----------------------------------------------------------------------------
 #    subroutines
@@ -64,7 +58,6 @@ sub shuffle
     while ( --$i )
     {
         my $j = int rand( $i+1 );
-        print "j = $j, i = $i \n";
         @$array[$i,$j] = @$array[$j,$i];
     }
 
@@ -156,7 +149,7 @@ my @all_bugs = keys %BUGS;
 my @bugs = shuffle (\@all_bugs);
 
 # only want first NUM_BUGS bugs
-$#bugs = $NUM_BUGS;
+@bugs = splice (@bugs, 0, $NUM_BUGS);
 
 print "\n";
 print "$NUM_BUGS random bugs:\n";