*** GDBAgent.C.orig	Thu Jun  6 23:26:09 2002
--- GDBAgent.C	Thu Jun  6 23:25:26 2002
***************
*** 2751,2757 ****
  	break;
  
      case PERL:
! 	if (var != "" || !is_perl_prefix(var[0]))
  	    return "";		// Cannot set this
  
  	cmd = "";		// No command needed
--- 2751,2757 ----
  	break;
  
      case PERL:
! 	if (var != "" && !is_perl_prefix(var[0]))
  	    return "";		// Cannot set this
  
  	cmd = "";		// No command needed