From 99605c85fa6a6ffed0c5debd316cc47fa2fb149c Mon Sep 17 00:00:00 2001
From: Ronaldo Mercado <ronaldo.mercado@diamond.ac.uk>
Date: Tue, 25 May 2010 11:14:50 +0100
Subject: [PATCH] relocating library refs within base

---
 src/cap5/capr.pl | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/cap5/capr.pl b/src/cap5/capr.pl
index f78741412..672fd509d 100644
--- a/src/cap5/capr.pl
+++ b/src/cap5/capr.pl
@@ -8,8 +8,11 @@
 #######################################################################
 
 use strict;
+
+use FindBin qw($Bin);
+use lib "$Bin/../../lib/perl";
+
 use Getopt::Std;
-use lib "/dls_sw/epics/R3.14.11/base/lib/perl";
 use CA;
 
 ######### Globals ##########
@@ -83,11 +86,6 @@ if($opt_f) {
     printRecordList($opt_f);
     exit;
 }
-#my @data;
-#@data = EZCA::Get("S:BM:TMDispAI.VAL", "ezcaDouble",1);
-#if( $data[0] )  { die "ca get error on field --" };
-#print(" $data[1] ");
-#die "end";
 
 # Do the business
 # Allow commas between arguments as in vxWorks dbpr