Changeset 29161 for gs2-extensions/parallel-building/trunk/src/perllib/plugins/CPULoadTextPlugin.pm

Timestamp:

2014-07-24T14:13:19+12:00 (10 years ago)

Author:

jmt12

Message:

Some modules aren't availalbe on cluster... add test and include path to extensions CPAN library as necessary

File:

• gs2-extensions/parallel-building/trunk/src/perllib/plugins/CPULoadTextPlugin.pm (modified) (3 diffs)

gs2-extensions/parallel-building/trunk/src/perllib/plugins/CPULoadTextPlugin.pm

@@ -7 +7 @@
 no strict 'subs';
 
+sub BEGIN
+{
+  @CPULoadTextPlugin::ISA = ('TextPlugin');
+
+  eval('use Crypt::Blowfish_PP');
+  if ($@)
+  {
+    # We need the Perl version before continuing
+    if (!defined $ENV{'PERL_VERSION'})
+    {
+      $ENV{'PERL_VERSION'} = `perl -S $ENV{'GEXTPARALLELBUILDING'}/bin/script/perl-version.pl`;
+    }
+    die "PERL_VERSION not set\n" unless defined $ENV{'PERL_VERSION'};
+    # Crypt::Blowfish_PP module
+    unshift (@INC, $ENV{'GEXTPARALLELBUILDING'} . '/' . $ENV{'GSDLOS'} . '/lib/perl/' . $ENV{'PERL_VERSION'});
+  }
+}
+
 use Crypt::Blowfish_PP;
 use Kea;
 use Lingua::EN::Syllable;
-
-sub BEGIN {
-    @CPULoadTextPlugin::ISA = ('TextPlugin');
-}
 
 our $cpu_load_list = [ { 'name' => "none",
@@ -98 +112 @@
     $self->{'first'} = '80,256,1024';
     $self->generateSummaries($doc_obj, $textref);
+    $self->{'first'} = undef;
     $self->generateComplexity($doc_obj, $textref);
     $self->generateEncryptedText($doc_obj, $textref, 'thePassword');
@@ -249 +264 @@
   my ($doc_obj, $text) = @_;
   my $raw_lexicon = {};
-  my @words = split('/[\,\.\s]+/', $text);
+  my @words = split(/[\,\.\s]+/, $text);
   foreach my $word (@words)
   {