Unable to save changes using IO::File

[pelp]

Hi -

The problem is that I'm unable to save my changes after making
subsitutions, and I don't understand why.

Here's the code.

--

#!/usr/vendor/bin/perl
use strict;
use IO::File

my $FRAME_FILE = new IO::File;
my $change_on  = "FChangeBar Yes";
my $change_off = "FchangeBar No";


$FRAME_FILE -> open("+<test.mif") or die "can't open file";

while (<$FRAME_FILE>)
{
   if (/$change_on/)
   {
      s/$change_on/$change_off/g;
   }
}

$FRAME_FILE -> close;

--

After debugging the code myself for a bit, I don't see where the
problem could lay.

Thanks ahead!!

-- 
http://fastmail.fm
 - Taking the "ail" out of email! 

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