From 0d5106d1fc7aed594dd31930583fe7f62a3ec966 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 19 May 2003 14:17:09 +0000
Subject: (gimp::pop_spaces): consolidate skipping of lines that are space
 ended

---
 perl-install/printer/gimp.pm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'perl-install/printer/gimp.pm')

diff --git a/perl-install/printer/gimp.pm b/perl-install/printer/gimp.pm
index dd36a514b..bb9f00b31 100644
--- a/perl-install/printer/gimp.pm
+++ b/perl-install/printer/gimp.pm
@@ -257,8 +257,7 @@ sub addentry {
     my ($section, $entry, $filecontent) = @_;
     my $sectionfound = 0;
     my $entryinserted = 0;
-    my @lines = split("\n", $filecontent);
-    while ($lines[-1] !~ /\S/) { pop @lines; }
+    my @lines = pop_spaces(split("\n", $filecontent));
     foreach (@lines) {
 	if (!$sectionfound) {
 	    $sectionfound = 1 if /^\s*Printer\s*:\s*($section)\s*$/;
@@ -276,8 +275,7 @@ sub addentry {
 
 sub addprinter {
     my ($section, $filecontent) = @_;
-    my @lines = split("\n", $filecontent);
-    while ($lines[-1] !~ /\S/) { pop @lines; }
+    my @lines = pop_spaces(split("\n", $filecontent));
     foreach (@lines) {
      # section already there, nothing to be done
      return $filecontent if /^\s*Printer\s*:\s*($section)\s*$/;
@@ -285,11 +283,15 @@ sub addprinter {
     return $filecontent . "\nPrinter: $section\n";
 }
 
+sub pop_spaces {
+    my @lines = @_;
+    pop @lines while $lines[-1] !~ /\S/;
+}
+
 sub removeentry {
     my ($section, $entry, $filecontent) = @_;
     my $sectionfound;
-    my @lines = split(/^/, $filecontent);
-    while ($lines[-1] !~ /\S/) { pop @lines; }
+    my @lines = pop_spaces(split(/^/, $filecontent));
     foreach (@lines) {
 	if (!$sectionfound) {
 	    $sectionfound = /^\s*Printer\s*:\s*($section)\s*$/;
@@ -307,8 +309,7 @@ sub removeentry {
 sub removeprinter {
     my ($section, $filecontent) = @_;
     my $sectionfound;
-    my @lines = split(/^/, $filecontent);
-    while ($lines[-1] !~ /\S/) { pop @lines; }
+    my @lines = pop_spaces(split(/^/, $filecontent));
     foreach (@lines) {
 	if (!$sectionfound) {
 	    if (/^\s*Printer\s*:\s*($section)\s*$/) {
-- 
cgit v1.2.1