From 01a47bfeb271ca97c80d4186b11653f2cf3f7652 Mon Sep 17 00:00:00 2001
From: Robert Olson <olson@mcs.anl.gov>
Date: Thu, 16 Jun 2016 14:30:27 -0500
Subject: [PATCH] Work around problem with broken workspace files.

---
 lib/Bio/P3/Workspace/WorkspaceImpl.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/Bio/P3/Workspace/WorkspaceImpl.pm b/lib/Bio/P3/Workspace/WorkspaceImpl.pm
index df44856..71bfefb 100644
--- a/lib/Bio/P3/Workspace/WorkspaceImpl.pm
+++ b/lib/Bio/P3/Workspace/WorkspaceImpl.pm
@@ -580,6 +580,11 @@ sub _make_shock_node_public {
 
 sub _update_shock_node {
 	my ($self,$object,$force) = @_;
+        if ($object->{shocknode} !~ /[0-9a-f]$/i)
+	{
+	    warn "Bad workspace obj: bogus shock node " . Dumper($object);
+	    return;
+	}
 	if ($force == 1 ||
 	    !defined($self->{_shockupdate}->{$object->{uuid}}) ||
 	    (time() - $self->{_shockupdate}->{$object->{uuid}}) > $self->{_params}->{"update-interval"}) {