INN commit: trunk/scripts (innreport.in innreport_inn.pm)

[INN Commit]

    Date: Sunday, August 1, 2010 @ 03:07:52
  Author: iulius
Revision: 9090

Assignment to $[ is deprecated in Perl 5.12.1.
Anyway, the default is 0; so we can remove our assignments.

Thanks to Dieter Stussy for having noticed.

Modified:
  trunk/scripts/innreport.in
  trunk/scripts/innreport_inn.pm

------------------+
 innreport.in     |    6 ------
 innreport_inn.pm |    1 -
 2 files changed, 7 deletions(-)

Modified: innreport.in
===================================================================
--- innreport.in	2010-07-30 15:02:07 UTC (rev 9089)
+++ innreport.in	2010-08-01 10:07:52 UTC (rev 9090)
@@ -671,11 +671,6 @@
 # - Used with perl's sort function, arguments are passed as $a and $b.
 # - Specified in section "inn_flow" of innreport.conf.
 sub DateCompare {
-
-  # $[ ... The index of the first element in an array, and of the first
-  #        character in a substring. Default is 0.
-  local $[ = 0;
-
   # The 2 dates are near. The range is less than a few days that's why we
   # can cheat to determine the order. It is only important if one date
   # is in January and the other in December.
@@ -791,7 +786,6 @@
 
 # Compare 2 filenames
 sub filenamecmp {
-  local $[ = 0;
   my ($la, $lb) = ($a, $b);
   my ($ya) = $la =~ m/news-notice\.(\d+)\./o;
   $ya += 100  if $ya < 90; # Try to pacify the year 2000 !

Modified: innreport_inn.pm
===================================================================
--- innreport_inn.pm	2010-07-30 15:02:07 UTC (rev 9089)
+++ innreport_inn.pm	2010-08-01 10:07:52 UTC (rev 9090)
@@ -2430,7 +2430,6 @@
 # Compare 2 dates (+hour), used with sort (arguments $a and $b)
 sub datecmp() {
   # ex: "May 12 06"   for May 12, 6:00am
-  local($[) = 0;
   # The 2 dates are near. The range is less than a few days that's why we
   # can cheat to determine the order. It is only important if one date
   # is in January and the other in December.