More Control foreach problems

Matthew C. Aycock matt at mathcs.emory.edu
Wed Jun 20 14:57:37 UTC 2001


I have found a couple of more foreach problems with current. Here is a patch
to fix as before:

*** ./control/modules/ihave.pl.orig	Wed Jun 20 10:51:21 2001
--- ./control/modules/ihave.pl	Wed Jun 20 10:52:25 2001
***************
*** 19,25 ****
          my $tempfile = "$inn::tmpdir/ihave.$$";
          open(GREPHIST, "|grephistory -i > $tempfile")
              or logdie('Cannot run grephistory: ' . $!);
!         print GREPHIST "$_\n" foreach @$body;
          close GREPHIST;
  
          if (-s $tempfile) {
--- 19,27 ----
          my $tempfile = "$inn::tmpdir/ihave.$$";
          open(GREPHIST, "|grephistory -i > $tempfile")
              or logdie('Cannot run grephistory: ' . $!);
! 	foreach (@$body) {
!             print GREPHIST "$_\n";
!         }
          close GREPHIST;
  
          if (-s $tempfile) {
*** ./control/modules/sendme.pl.orig	Wed Jun 20 10:51:21 2001
--- ./control/modules/sendme.pl	Wed Jun 20 10:52:48 2001
***************
*** 19,25 ****
          my $tempfile = "$inn::tmpdir/sendme.$$";
          open(GREPHIST, "|grephistory -s > $tempfile")
              or logdie("Cannot run grephistory: $!");
!         print GREPHIST "$_\n" foreach @$body;
          close GREPHIST or logdie("Cannot run grephistory: $!");
  
          if (-s $tempfile and $site =~ /^[a-zA-Z0-9.-_]+$/) {
--- 19,27 ----
          my $tempfile = "$inn::tmpdir/sendme.$$";
          open(GREPHIST, "|grephistory -s > $tempfile")
              or logdie("Cannot run grephistory: $!");
! 	foreach (@$body) {
!             print GREPHIST "$_\n";
! 	}
          close GREPHIST or logdie("Cannot run grephistory: $!");
  
          if (-s $tempfile and $site =~ /^[a-zA-Z0-9.-_]+$/) {


Thanks,

Matt
----------
Matthew C. Aycock
Operating Systems Analyst/Developer, Lead
Dept Math/CS
Emory University, Atlanta, GA 
Internet:  matt at mathcs.emory.edu 		




More information about the inn-workers mailing list