Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
ensembl-gh-mirror
ensembl-hive
Commits
ec2ca3df
Commit
ec2ca3df
authored
Aug 28, 2012
by
Leo Gordon
Browse files
this diagnostic information is no longer needed
parent
3bbf5583
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
5 deletions
+5
-5
modules/Bio/EnsEMBL/Hive/DBSQL/BaseAdaptor.pm
modules/Bio/EnsEMBL/Hive/DBSQL/BaseAdaptor.pm
+3
-3
modules/Bio/EnsEMBL/Hive/Queen.pm
modules/Bio/EnsEMBL/Hive/Queen.pm
+2
-2
No files found.
modules/Bio/EnsEMBL/Hive/DBSQL/BaseAdaptor.pm
View file @
ec2ca3df
...
...
@@ -358,7 +358,7 @@ sub AUTOLOAD {
die
"
unknown column '
$value_column
'
";
}
print
"
Setting up '
$AUTOLOAD
' method
\n
";
#
print "Setting up '$AUTOLOAD' method\n";
*$AUTOLOAD
=
sub
{
my
$self
=
shift
@_
;
return
$self
->
fetch_all
(
...
...
@@ -376,7 +376,7 @@ sub AUTOLOAD {
my
$column_set
=
$self
->
column_set
();
if
(
$column_set
->
{
$filter_name
})
{
print
"
Setting up '
$AUTOLOAD
' method
\n
";
#
print "Setting up '$AUTOLOAD' method\n";
*$AUTOLOAD
=
sub
{
my
(
$self
,
$filter_value
)
=
@_
;
return
$self
->
count_all
("
$filter_name
='
$filter_value
'
");
};
goto
&$AUTOLOAD
;
# restart the new method
}
else
{
...
...
@@ -384,7 +384,7 @@ sub AUTOLOAD {
}
}
elsif
(
$AUTOLOAD
=~
/::update_(\w+)$/
)
{
my
@columns_to_update
=
split
('
_and_
',
$
1
);
print
"
Setting up '
$AUTOLOAD
' method
\n
";
#
print "Setting up '$AUTOLOAD' method\n";
*$AUTOLOAD
=
sub
{
my
(
$self
,
$object
)
=
@_
;
return
$self
->
update
(
$object
,
@columns_to_update
);
};
goto
&$AUTOLOAD
;
# restart the new method
}
else
{
...
...
modules/Bio/EnsEMBL/Hive/Queen.pm
View file @
ec2ca3df
...
...
@@ -662,7 +662,7 @@ sub get_hive_current_load {
(
my
$load
)
=
$sth
->
fetchrow_array
();
$sth
->
finish
;
$load
=
0
unless
(
$load
);
print
("
current hive load =
$load
\n
");
#
print("current hive load = $load\n");
return
$load
;
}
...
...
@@ -782,7 +782,7 @@ sub schedule_workers_resync_if_necessary {
my
$workers_to_run_by_rc_id
=
$self
->
schedule_workers
(
$analysis
,
$pending_by_rc_id
,
$available_submit_limit
);
unless
(
keys
%$workers_to_run_by_rc_id
or
$self
->
get_hive_current_load
()
or
$self
->
count_running_workers
()
)
{
print
"
***
nothing is running and nothing to do (according to analysis_stats) =>
perform a hard re
sync
\n
"
;
print
"
\n
Scheduler:
nothing is running and nothing to do (according to analysis_stats) =>
executing garbage collection and
sync
\n
"
;
$self
->
check_for_dead_workers
(
$valley
,
1
);
$self
->
synchronize_hive
(
$analysis
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment