X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=rsem-generate-ngvector;h=0f44fd4daa2f153e60d3874a09c948aebc606b62;hb=52f1bd6f44f9b2630b839f192fb9ece18581983b;hp=fc97b84e83dfdb058ef2bbe048b56cfc68342507;hpb=da3cf29fde8e879f83cde41831ddbc0456ba35dd;p=rsem.git

diff --git a/rsem-generate-ngvector b/rsem-generate-ngvector
index fc97b84..0f44fd4 100755
--- a/rsem-generate-ngvector
+++ b/rsem-generate-ngvector
@@ -5,6 +5,8 @@ use Pod::Usage;
 use File::Basename;
 use strict;
 
+use rsem_perl_utils;
+
 my $k = 25;
 my $help = 0;
 
@@ -23,20 +25,6 @@ $command = $dir."EBSeq/rsem-for-ebseq-calculate-clustering-info $k $ARGV[0] $ARG
 $command = $dir."EBSeq/rsem-for-ebseq-generate-ngvector-from-clustering-info $ARGV[1].ump $ARGV[1].ngvec";
 &runCommand($command);
 
-# command, {err_msg}
-sub runCommand {
-    print $_[0]."\n";
-    my $status = system($_[0]);
-    if ($status != 0) {
-        my $errmsg = "";
-        if (scalar(@_) > 1) { $errmsg .= $_[1]."\n"; }
-        $errmsg .= "\"$_[0]\" failed! Please check if you provide correct parameters/options for the pipeline!\n";
-        print $errmsg;
-        exit(-1);
-    }
-    print "\n";
-}
-
 __END__
 
 =head1 NAME