Lines Matching refs:state
49 my ($old_fname, $function, $state) = @_;
58 my $value = &$function($state, $_);
70 my ($state, $value) = @_;
72 $value =~ s/$state->{'old_root'}/$state->{'new_root'}/g;
73 $value =~ s/$state->{'win32_old_root'}/$state->{'win32_new_root'}/g;
84 my %state;
89 $state{'old_root'} = $old_root;
90 $state{'new_root'} = $new_root;
94 $state{'win32_old_root'} = $tmp;
97 $state{'win32_new_root'} = $tmp;
99 sed_file ("$new_root/$set", \&rewrite_value, \%state);
106 sed_file ("$new_root/$tcsh_set", \&rewrite_value, \%state);
190 my %state;
191 $state{'old_root'} = $old_root;
192 $state{'new_root'} = $new_root;
194 my $rewrite = sub { my $state = shift; my $value = shift;
195 $value =~ s/$state->{'old_root'}/$state->{'new_root'}/g;
197 sed_file ("$new_root/bootstrap", $rewrite, \%state);