Modification of a read-only value attempted

[Scott Taylor]

Hello all,

I'm trying to open a file (3 separate files anyway) and iterate through them
In this portion of my script:
foreach ("dct","lfl","usa"){
  my ($co_id) = $_;
  print "$co_id\n";
  system "rcp orion:/u1/syncdata/drvdat.$co_id /tmp/drv.temp" || next;
  open(InFile, "/tmp/drv.temp") || die "No such file: $!\n";
  while(<InFile>){
        chomp;
        my ($DRVID,$DRVNAME,$DRVPHONE,$DRVTRKID,$DRVLEASEOP) = split(/,/,$_);
   ...
  }
}
the "while(<InFile>){" line returns this message:

Modification of a read-only value attempted

I can't seem to find any references to this error message anywhere and 
other similar scrips don't produce this message.  Any one see what I'm 
doing wrong here.

Cheers,

Scott.

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]