[pkg-bioc] svn commit r360 r360 - /trunk/tools-ng/pkgbioc.pm

[smoe-guest at users.alioth.debian.org]

Author: smoe-guest
Date: Mon Nov 12 22:25:28 2007
New Revision: 360

URL: http://svn.debian.org/wsvn/pkg-bioc/?sc=1&rev=360
Log:
More Clean_ templates.

Modified:
    trunk/tools-ng/pkgbioc.pm

Modified: trunk/tools-ng/pkgbioc.pm
URL: http://svn.debian.org/wsvn/pkg-bioc/trunk/tools-ng/pkgbioc.pm?rev=360&op=diff
==============================================================================
--- trunk/tools-ng/pkgbioc.pm (original)
+++ trunk/tools-ng/pkgbioc.pm Mon Nov 12 22:25:28 2007
@@ -781,13 +781,36 @@ sub Clean_License ($) {
     return $line;
 }
 
-sub Clean_Import ($) {
+sub Clean_Imports ($) {
     my ($line) = @_;
     $line =~ s/[\r\n\t]/ /mgo;    # nuke new line
     $line =~ s/  //go;            # nuke spaces
     return $line;
 }
 
+sub Clean_Suggests ($) {
+    my ($line) = @_;
+    $line =~ s/[\r\n\t]/ /mgo;    # nuke new line
+    $line =~ s/  //go;            # nuke spaces
+    return $line;
+}
+
+sub Clean_SystemRequirements ($) {
+    my ($line) = @_;
+    $line =~ s/[\r\n\t]/ /mgo;    # nuke new line
+    $line =~ s/  //go;            # nuke spaces
+    return $line;
+}
+
+sub Clean_Recommends ($) {
+    my ($line) = @_;
+    $line =~ s/[\r\n\t]/ /mgo;    # nuke new line
+    $line =~ s/  //go;            # nuke spaces
+    return $line;
+}
+
+
+
 sub DetermineLicenseProblem ($$$$) {
     my ( $package, $license, $packagehashref, $global ) = @_;
     my $section = "main";