diff --git a/src/epics/util/lib/Parameters.pm b/src/epics/util/lib/Parameters.pm index 3232b5b6794d0a4cfe890fcbcbd0d0116488da2b..3d4d4b1a7d0133a201f6c8ce20d422f0202a1d44 100644 --- a/src/epics/util/lib/Parameters.pm +++ b/src/epics/util/lib/Parameters.pm @@ -43,9 +43,12 @@ sub parseParams { { print "PARAM ifo set to $spp[1]\n"; $spp[1] =~ s/,/ /g; + $spp[1] = uc($spp[1]); #Force the IFO to be caps + + #Make sure the ifo and filename match if (lc($spp[1]) ne $::ifo_from_mdl_name) { - $errmsg = "***ERROR: Model <ifo> name part does not match cdsParameters: "; - $errmsg .= $::ifo . ", " . $spp[1] . "\n"; + $errmsg = "***ERROR: Model cdsParameter ifo= does not match filename (first two characters): "; + $errmsg .= "ifo=" . $spp[1] . ", filename[0:2]: ". $::ifo_from_mdl_name . "\n"; die $errmsg; } $::ifo = $spp[1];