made the script work when the full path to the script is not provided

Author: sameer-pradhan

scorer.pl

@@ -1,15 +1,20 @@
 #!/usr/bin/perl
 
 BEGIN {
-    $d = $0;
-    $d =~ s/\/[^\/][^\/]*$//g;
-    unshift(@INC, $d."/lib");
+  $d = $0;
+  $d =~ s/\/[^\/][^\/]*$//g;
+
+  if ($d eq $0) {
+    unshift(@INC, "lib");
+  }
+  else {
+    unshift(@INC, $d . "/lib");
+  }
 }
 
 use strict;
 use CorScorer;
 
-
 if (@ARGV < 3) {
   print q|
 use: scorer.pl <metric> <keys_file> <response_file> [name]
@@ -35,20 +40,19 @@ BEGIN
   exit;
 }
 
-my $metric = shift (@ARGV);
+my $metric = shift(@ARGV);
 if ($metric !~ /^(muc|bcub|ceafm|ceafe|blanc|all)/i) {
   print "Invalid metric\n";
   exit;
 }
 
-
 if ($metric eq 'all') {
   foreach my $m ('muc', 'bcub', 'ceafm', 'ceafe', 'blanc') {
     print "\nMETRIC $m:\n";
-    &CorScorer::Score( $m, @ARGV );
+    &CorScorer::Score($m, @ARGV);
   }
 }
 else {
-  &CorScorer::Score( $metric, @ARGV );
+  &CorScorer::Score($metric, @ARGV);
 }