projects
/
platform
/
upstream
/
gstreamer.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
#
# 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., 5
9 Temple Place - Suite 330
,
-# Boston, MA 0211
1-1307
, USA.
+# Free Software Foundation, Inc., 5
1 Franklin St, Fifth Floor
,
+# Boston, MA 0211
0-1301
, USA.
#
# ----------------------------------------------------------------------------
#
#
# ----------------------------------------------------------------------------
#
@@
-38,7
+38,7
@@
#
# MAILTO=you@nowhere.org
# # send ten random buglinks every day at 16.30
#
# 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.
#
#
# Yes, it's PERL, sorry.
@@
-58,7
+58,6
@@
sub shuffle
while ( --$i )
{
my $j = int rand( $i+1 );
while ( --$i )
{
my $j = int rand( $i+1 );
- print "j = $j, i = $i \n";
@$array[$i,$j] = @$array[$j,$i];
}
@$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
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";
print "\n";
print "$NUM_BUGS random bugs:\n";