the Rainbow Networks
RN|VQ3 DEFRAG
Map: si
Players: 0 / 18

+++eXy FFA
Map: ztn3dm1
Players: 5 / 18
The golden pot › DEV › Maps, Models and Mods › SOLVED: problem with cons
SOLVED: problem with cons
There are worlds waiting to be explored and objects to be made. Enjoy.
Post new topic   Reply to topic   Printer Friendly Page     Forum IndexMaps, Models and Mods
View previous topic :: View next topic  
Author Message
W1ZrD
Founder
Founder


Joined: Aug 15, 2007
Posts: 1108
Location: Finland

PostPosted: Sat Dec 22, 2007 3:09 am    Post subject: SOLVED: problem with cons Reply with quote

I've been trying to patch cons up from 2.95 to 3, to 4.1.2 and then compile but I constantly get: Ignoring missing script "Construct" at /usr/bin/cons line 720.

Code::
sub main::doscripts {
    my($script) = @_;
    Build($script);
    # Now set up the includes/excludes (after the Construct file is read).
    $param::include = join('|', @param::include);

    # Save the original variable names from the script package.
    # These will stay intact, but any other "script::" variables
    # defined in a Conscript file will get saved, deleted,
    # and (when necessary) restored.
    my(%orig_script_var) = map {$_ => 1} keys %script::;
    $caller_dir_path = undef;
    my $cwd = Cwd::cwd();
    my(@scripts) = pop(@priv::scripts);
    while ($priv::self = shift(@scripts)) {
	my($path) = $priv::self->{script}->rsrcpath;
	if (-f $path) {
	    $dir::cwd = $priv::self->{script}->{dir};
	    # Handle chdir to the Conscript file directory, if necessary.
	    my ($vol, $dir, $file);
	    if ($param::conscript_chdir) {
		($vol, $dir, $file) = File::Spec->splitpath(File::Spec->canonpath($path));
		if ($vol ne '' || $dir ne '') {
		    $caller_dir_path = File::Spec->catpath($vol, $dir, undef);
		    chdir($caller_dir_path) ||
			die "Could not chdir to $caller_dir_path: $!\n";
		}
	    } else {
		$file = $path;
	    }
	    # Actually process the Conscript file.
	    do $file;
	    # Save any variables defined by the Conscript file
	    # so we can restore them later, if needed;
	    # then delete them from the script:: namespace.
	    my(@del) = grep(! $orig_script_var{$_}, keys %script::);
	    if (@del) {
		$priv::self->{script}->{pkgvars} =
						NameSpace::save('script', @del);
		NameSpace::remove('script', @del);
	    }
	    if ($caller_dir_path) {
		chdir($cwd);
		$caller_dir_path = undef;
	    }
	    if ($@) {
		chomp($@);
		my $err = ($@ =~ /\n/ms) ? ":\n$@" : " ($@)";
		print qq($0: error in file "$path"$err\n);
		$run::errors++;
	    } else {
		# Only process subsidiary scripts if no errors in parent.
		unshift(@scripts, @priv::scripts);
	    }
	    undef @priv::scripts;
	} else {
	    my $where = '';
	    my $cref = $priv::self->{script}->creator;
	    if (defined $cref) {
		my($_foo, $script, $line, $sub) = @$cref;
		$where = " ($sub in $script, line $line)";
	    }
	    warn qq(Ignoring missing script "$path"$where);
	}
    }
    die("$0: script errors encountered: construction aborted\n")
	if $run::errors;
}

[edit: changed it to point to where the current perl version is]

_________________
- Carl Sandburg -

Nothing happens unless first we dream.
Back to top
View user's profile Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   Printer Friendly Page     Forum Index -> Maps, Models and Mods All times are GMT + 1 Hour
Page 1 of 1


Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Welcome Anonymous


Membership:
Latest: kontol
New Today: 0
New Yesterday: 0
Overall: 355

People Online:
Members: 0
Visitors: 29
Total: 29
Who Is Where:
 Visitors:
01: My Account
02: The golden pot
03: The golden pot
04: Maps
05: The golden pot
06: Maps
07: Home
08: Home
09: My Account
10: Rainbow Media
11: The golden pot
12: Maps
13: The golden pot
14: The golden pot
15: The golden pot
16: The golden pot
17: Home
18: The golden pot
19: Maps
20: The golden pot
21: Maps
22: Home
23: The golden pot
24: The golden pot
25: The golden pot
26: The golden pot
27: The golden pot
28: The golden pot
29: The golden pot

Staff Online:

No staff members are online!

The Rainbow Networks website is hosted by JockeTF and Soder on furver.se.

The Rainbow Networks
Interactive software released under GNU GPL, Code Credits, Privacy Policy
Azul theme and related images designed by Jamin