how to fix "uninitialized value in subsitution" warning

[pelp]

Hi -

I'm unsure of how to patch the following warning message,

"Use of uninitialized value in substitution (s///) at work.pl line 74"


Here's my code:

#!/usr/bin/perl

use strict;
user IO::File;


my $FILE = new IO::File;
my $change_on = "/FChangeBar Yes/";
my $change_off = "/FChangeBar No/";


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

while ($FILE)
{
   if ($change_on)
   {
     s/$change_on/$change_off/;
   }
}

$FILE -> close;


Thanks ahead.

-pelp
-- 
http://fastmail.fm - The way email should be...

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