SPECS: sed_to_patch.pl - more TODO

[sparky]

Author: sparky                       Date: Wed Aug  2 00:27:54 2006 GMT
Module: SPECS                         Tag: HEAD
---- Log message:
- more TODO

---- Files affected:
SPECS:
   sed_to_patch.pl (1.1 -> 1.2) 

---- Diffs:

================================================================
Index: SPECS/sed_to_patch.pl
diff -u SPECS/sed_to_patch.pl:1.1 SPECS/sed_to_patch.pl:1.2
--- SPECS/sed_to_patch.pl:1.1	Wed Aug  2 01:35:30 2006
+++ SPECS/sed_to_patch.pl	Wed Aug  2 02:27:49 2006
@@ -6,6 +6,8 @@
 # TODO:
 #  - comments
 #  - support cvs branches
+#  - place %patch correctly if there is %if
+#  - remove BR sed >= 4.0 if no more seds
 #
 use strict;
 use warnings;
@@ -221,7 +223,7 @@
 close PATCH;
 my $ans;
 do {
-	print "\n\nOK [yn] ?";
+	print "\n\nOK [yn] ? ";
 	$ans = <STDIN>;
 	chomp $ans;
 } until ($ans =~ /^[yYnN]$/);
@@ -232,7 +234,7 @@
 push @patches, "$pkgname-$patch_name.patch";
 if (@seds > @outseds) {
 	do {
-		print "\nchange more [yn] ?";
+		print "\nchange more [yn] ? ";
 		$ans = <STDIN>;
 		chomp $ans;
 	} until ($ans =~ /^[yYnN]$/);
@@ -240,14 +242,14 @@
 }
 
 do {
-	print "\nedit spec [yn] ?";
+	print "\nedit spec [yn] ? ";
 	$ans = <STDIN>;
 	chomp $ans;
 } until ($ans =~ /^[yYnN]$/);
 system("vim", $spec) if ($ans =~ /[yY]/);
 
 do {
-	print "\nadapter [yn] ?";
+	print "\nadapter [yn] ? ";
 	$ans = <STDIN>;
 	chomp $ans;
 } until ($ans =~ /^[yYnN]$/);
@@ -260,7 +262,7 @@
 close PATCH;
 
 do {
-	print "\n\nsend [yn] ?";
+	print "\n\nsend [yn] ? ";
 	$ans = <STDIN>;
 	chomp $ans;
 } until ($ans =~ /^[yYnN]$/);
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/SPECS/sed_to_patch.pl?r1=1.1&r2=1.2&f=u