Changeset 369
- Timestamp:
- 05/25/07 17:15:43 (1 year ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
honeyclient/branches/exp/kindlund-filesystem/lib/HoneyClient/Agent.pm
r367 r369 115 115 @DRIVERS = ( 'IE' ); 116 116 # XXX: See if this is still needed. 117 #foreach (@DRIVERS) {118 #eval "use HoneyClient::Agent::Driver::Browser::$_";119 #if ($@) {120 #Carp::croak "$@";121 #}122 #}117 foreach (@DRIVERS) { 118 eval "use HoneyClient::Agent::Driver::Browser::$_"; 119 if ($@) { 120 Carp::croak "$@"; 121 } 122 } 123 123 124 124 $SIG{PIPE} = 'IGNORE'; # Do not exit on broken pipes. … … 821 821 # Figure out which $driver object to use... 822 822 my $driverClass = 'HoneyClient::Agent::Driver::Browser::' . $driverName; 823 eval "require $driverClass"; 824 if ($@) { 825 Carp::croak "$@"; 826 } 823 # XXX: See if this is still needed. 824 # eval "require $driverClass"; 825 # if ($@) { 826 # Carp::croak "$@"; 827 # } 827 828 828 829 if (!defined($data->{$driverName}->{'state'})) { … … 1096 1097 my $driverClass = 'HoneyClient::Agent::Driver::Browser::' . $driverName; 1097 1098 1098 eval "require $driverClass"; 1099 if ($@) { 1100 Carp::croak "$@"; 1101 } 1099 # XXX: See if this is still needed. 1100 # eval "require $driverClass"; 1101 # if ($@) { 1102 # Carp::croak "$@"; 1103 # } 1102 1104 1103 1105 if (!defined($data->{$driverName}->{'state'})) {
