UBB.Developers Forums UBB.classic V6.4 - 6.7 Modifications V6 Mod Ideas What can I do?

 



    #endsub

sub RequireCode {    # safely do a require()
#	warn "RC: $_[0]";
	return if exists $INC{$_[0]};
	# Fake an untaint
	$_[0] =~ m/^(.+)$/gs;
	my $fn    = $1;
	eval { require $fn; };
	die "(RequireCode) $fn: $@" if $@;
}    #endsub

sub RequireCodeNoINC {    # safely do a require() without regard to %INC
#	warn "RCni: $_[0]";