diff --git a/contribs/torque/pbsnodes.pl b/contribs/torque/pbsnodes.pl
index 7336e636b9c96bf02308b8147631eee6751ab092..8993229feb51e8a7b8be28f593123bd3a706fa0f 100755
--- a/contribs/torque/pbsnodes.pl
+++ b/contribs/torque/pbsnodes.pl
@@ -91,7 +91,9 @@ Main:
     # Use sole remaining argument as nodeIds
     my @nodeIds = @ARGV;
     my $slurm = Slurm::new();
-
+    if (!$slurm) {
+        die "Problem loading slurm.\n";
+    }
 
     # handle all of the node update operations
     if ( defined $clear || defined $offline || defined $reset ) {
diff --git a/contribs/torque/qalter.pl b/contribs/torque/qalter.pl
index d8c9fbed5f3d99655169761c4a09111fccb39a5c..d0af2b3a44700f94f32f0fd9308e92d973383617 100755
--- a/contribs/torque/qalter.pl
+++ b/contribs/torque/qalter.pl
@@ -73,6 +73,9 @@ if (@ARGV < 1) {
 	pod2usage(-message=>"Missing Job ID", -verbose=>0);
 } else {
 	$slurm = Slurm::new();
+	if (!$slurm) {
+		die "Problem loading slurm.\n";
+	}
 	$resp = $slurm->get_end_time($job_id);
 	if (not defined($resp)) {
 		pod2usage(-message=>"Job id $job_id not valid!", -verbose=>0);
diff --git a/contribs/torque/qsub.pl b/contribs/torque/qsub.pl
index 2c9b773c80765a81b277355403fadb56864c1f66..cb82d33ec646c73020bdb3125979e5523485f0e4 100755
--- a/contribs/torque/qsub.pl
+++ b/contribs/torque/qsub.pl
@@ -418,6 +418,9 @@ if ($interactive) {
 	# If block is true wait for the job to finish
 	my($resp, $count);
 	my $slurm = Slurm::new();
+	if (!$slurm) {
+		die "Problem loading slurm.\n";
+	}
 	if ( (lc($block) eq "true" ) and ($command_exit_status == 0) ) {
 		sleep 2;
 		my($job) = $slurm->load_job($job_id);