gst-uninstalled: add gst-libav to pkg-config path

[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 02d24cc..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.
@@ -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";