Commit 605a4bd1 authored by Mike Hibler's avatar Mike Hibler

Remove taint mode from some daemons.

That change I made to EmulabConstants.pm.in only worked around one instance
of the problem.  Apparently in perl 5.10 there is a known bug related to
taint mode and self loading?  Anyway, the short-term fix is either to move
to perl 5.12 (no thanks) or disable taint checking failures when we hit the
problem.
parent 8f6a6648
......@@ -174,7 +174,7 @@ $PROJROOT = "@PROJROOT_DIR@";
# _Always_ make sure that this 1 is at the end of the file...
1;
#__DATA__
__DATA__
#
# Needs to be configured.
......
......@@ -186,11 +186,11 @@ sub mysystem($)
{
my ($command) = @_;
my $cwd;
chomp($cwd = `/bin/pwd`);
print STDERR "Running '$command' in $cwd\n"
if (0);
if (0) {
my $cwd;
chomp($cwd = `/bin/pwd`);
print STDERR "Running '$command' in $cwd\n";
}
return system($command);
}
......@@ -1437,7 +1437,7 @@ sub GetProject($)
my $project = Project->Lookup($self->pid_idx());
if (! defined($project)) {
print("*** WARNING: Could not lookup project object for $self!", 1);
print("*** WARNING: Could not lookup project object for $self!\n");
return undef;
}
return $project;
......
#!/usr/bin/perl -wT
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2007 University of Utah and the Flux Group.
# Copyright (c) 2000-2010 University of Utah and the Flux Group.
# All rights reserved.
#
......
#!/usr/bin/perl -wT
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
......
#!/usr/bin/perl -wT
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment