Просмотр исходного кода

Dpkg::Shlibs::Symbol: improve set_symbolname().

Now it allows to set symbol template and autodetects if quotes are needed.
Modestas Vainius лет назад: 16
Родитель
Сommit
8ee083c253
1 измененных файлов с 11 добавлено и 4 удалено
  1. 11 4
      scripts/Dpkg/Shlibs/Symbol.pm

+ 11 - 4
scripts/Dpkg/Shlibs/Symbol.pm

@@ -197,11 +197,18 @@ sub get_symboltempl {
 }
 
 sub set_symbolname {
-    my ($self, $name, $quoted) = @_;
-    if (defined $name) {
-	$self->{symbol} = $name;
+    my ($self, $name, $templ, $quoted) = @_;
+    unless (defined $name) {
+	$name = $self->{symbol};
     }
-    $self->{symbol_templ} = undef;
+    if (!defined $templ && $name =~ /\s/) {
+	$templ = $name;
+    }
+    if (!defined $quoted && defined $templ && $templ =~ /\s/) {
+	$quoted = '"';
+    }
+    $self->{symbol} = $name;
+    $self->{symbol_templ} = $templ;
     if ($quoted) {
 	$self->{symbol_quoted} = $quoted;
     } else {