304       my $dest = $f =~ s#$dir/?#$outdir#er;

   304       my $dest = $f =~ s#$dir/?#$outdir#er;

   305       if (grep(m#^$f$#, @navify_files)) {

   305       if (grep(m#^$f$#, @navify_files)) {

   306 	# YAY we have to sub navbar and copy whoop whoop

   306 	# YAY we have to sub navbar and copy whoop whoop

   307 	open my $file_tc, '<', $f or die "file no open, grrr!";

   307 	open my $file_tc, '<', $f or die "file no open, grrr!";

   308 	open my $file_out, '>', $dest;

   308 	open my $file_out, '>', $dest;

   310 	local $/;

   309 	local $/;

   311 	print $file_out ((<$file_tc>) =~ s/NAV/nav_up("$dest" =~ s%.+?\/%%r,1)/er);

   310 	print $file_out ((<$file_tc>) =~ s/NAV/nav_up("$dest" =~ s%.+?\/%%r,1)/er);

   312 	map \&close, ($file_tc, $file_out);

   311 	map \&close, ($file_tc, $file_out);

   313       } else {

   312       } else {

   314 	copy $f, $dest;

   313 	copy $f, $dest;