X-Git-Url: http://git.ipfire.org/?a=blobdiff_plain;f=config%2Fcfgroot%2Fmodem-lib.pl;h=5d43cc176e7a103b46bfa1282be457351f8e278f;hb=d435f08d9b4a40817d6ae8601b20ef392253338f;hp=51b6d68e9cd60837da13cbc1a9ee37723d038cd7;hpb=080568824d60c86189a49d272a390f81c86a0eba;p=people%2Fpmueller%2Fipfire-2.x.git

diff --git a/config/cfgroot/modem-lib.pl b/config/cfgroot/modem-lib.pl
index 51b6d68e9c..5d43cc176e 100644
--- a/config/cfgroot/modem-lib.pl
+++ b/config/cfgroot/modem-lib.pl
@@ -33,7 +33,10 @@ sub new() {
 	bless $self, $class;
 
 	# Initialize the connetion to the modem.
-	$self->_initialize($port, $baud);
+	my $ret = $self->_initialize($port, $baud);
+	if ($ret) {
+		return undef;
+	}
 
 	if ($self->_is_working()) {
 		return $self;
@@ -54,9 +57,16 @@ sub DESTROY() {
 sub _initialize() {
 	my ($self, $port, $baud) = @_;
 
+	# Check if the character device actually exists.
+	if (! -c $port) {
+		return 1;
+	}
+
 	# Establish connection to the modem.
 	$self->{modem} = new Device::Modem(port => $port);
 	$self->{modem}->connect(baudrate => $baud);
+
+	return 0;
 }
 
 sub _is_working() {