1 files changed, 8 insertions, 4 deletions
diff --git a/lib/network/connection/cellular_bluetooth.pm b/lib/network/connection/cellular_bluetooth.pm
index 77bf964..0f89b2c 100644
--- a/lib/network/connection/cellular_bluetooth.pm
+++ b/lib/network/connection/cellular_bluetooth.pm
@@ -70,6 +70,14 @@ sub search_services {
     @services;
 }
 
+sub set_ppp_settings {
+    my ($self) = @_;
+
+    my $cid = 1;
+    $self->{access}{at_commands} = [ qq(AT+CGDCONT=$cid,"IP","$self->{access}{apn}") ];
+    $self->{access}{dial_number} = "*99***$cid#";
+}
+
 sub write_settings {
     my ($self) = @_;
 
@@ -83,10 +91,6 @@ rfcomm$dev {
 }
 ));
 
-    my $cid = 1;
-    $self->{access}{at_commands} = [ qq(AT+CGDCONT=$cid,"IP","$self->{access}{apn}") ];
-    $self->{access}{dial_number} = "*99***$cid#";
-
     $self->SUPER::write_settings;
 }