X-Git-Url: http://review.tizen.org/git/?a=blobdiff_plain;f=scripts%2Ffive-bugs-a-day.pl;h=7a4b2844e3c86538d6467faf4a16f94b7b0a0cb1;hb=6580017510f4382fc347bf30fe654be192e8d6ab;hp=02d24ccca19f51af0212ec294bc37c7b70057f5f;hpb=03755833a42d330eaeb50c1d669bf918cb8ed758;p=platform%2Fupstream%2Fgstreamer.git

diff --git a/scripts/five-bugs-a-day.pl b/scripts/five-bugs-a-day.pl
index 02d24cc..7a4b284 100755
--- 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.
@@ -58,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];
     }
 
@@ -150,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";