Author: humbedooh
Date: Thu Jul 19 11:28:52 2012
New Revision: 1363301
URL: http://svn.apache.org/viewvc?rev=1363301&view=rev
Log:
fix perl script
Modified:
trafficserver/site/trunk/cgi-bin/random.cgi
Modified: trafficserver/site/trunk/cgi-bin/random.cgi
URL:
http://svn.apache.org/viewvc/trafficserver/site/trunk/cgi-bin/random.cgi?rev=1363301&r1=1363300&r2=1363301&view=diff
==============================================================================
--- trafficserver/site/trunk/cgi-bin/random.cgi (original)
+++ trafficserver/site/trunk/cgi-bin/random.cgi Thu Jul 19 11:28:52 2012
@@ -1,4 +1,6 @@
#!/usr/bin/perl -T
+$ENV{ 'PATH' } = '/bin:/usr/bin:/usr/local/bin';
+delete @ENV{ 'IFS', 'CDPATH', 'ENV', 'BASH_ENV' };
my $response = `curl
'https://issues.apache.org/jira/secure/IssueNavigator.jspa?reset=true&jqlQuery=project+%3D+TS+AND+status+%3D+Open+ORDER+BY+priority+DESC&mode=hide'`;
my @matches = ( $response =~ /browse\/(TS\-\d+)/g );
my $length = $#matches + 1;
