take a few more things literally

[infobot.git] / src / Modules / Debian.pl

diff --git a/src/Modules/Debian.pl b/src/Modules/Debian.pl
index 0e2eaf5742623fdd57c3508edb744187a31771f0..6d0e3965405df4c521ff2efacdc4d950ff4bfa43 100644 (file)
--- a/src/Modules/Debian.pl
+++ b/src/Modules/Debian.pl
@@ -210,7 +210,7 @@ sub searchContents {
        $grepRE = "$query*\[ \t]";
     }
 
-    # fix up grepRE for "*".
+    # fix up grepRE for '*'.
     $grepRE =~ s/\*/.*/g;
 
     my @files;
@@ -327,7 +327,7 @@ sub searchContents {
 
     } elsif (scalar @list == 1) {      # list = 1.
        &::DEBUG("deb: list == 1; showing package info of '$list[0]'.");
-       &infoPackages("info", $list[0]);
+       &infoPackages('info', $list[0]);
 
     } else {                           # list > 1.
        my $prefix = "Debian Desc Search of '$query' ";
@@ -382,13 +382,13 @@ sub searchAuthor {
 
        } elsif (/^Maintainer: (.*) \<(\S+)\>$/) {
            my($name,$email) = ($1,$2);
-           if ($package eq "") {
+           if ($package eq '') {
                &::DEBUG("deb: sA: package == NULL.");
                next;
            }
            $maint{$name}{$email} = 1;
            $pkg{$name}{$package} = 1;
-           $package = "";
+           $package = '';
 
        } else {
            chop;
@@ -492,13 +492,13 @@ sub searchDesc {
            next unless (eval { $desc =~ /$regex/i });
            return unless &checkEval($@);
 
-           if ($package eq "") {
+           if ($package eq '') {
                &::WARN("sD: package == NULL?");
                next;
            }
 
            $desc{$package} = $desc;
-           $package = "";
+           $package = '';
 
        } else {
            chop;
@@ -546,7 +546,7 @@ sub generateIncoming {
            print IDX "$1\n";
            print PKG "Package: $1\n";
            print PKG "Version: $2\n";
-           print PKG "Architecture: ", (defined $4) ? $4 : "all", "\n";
+           print PKG "Architecture: ", (defined $4) ? $4 : 'all', "\n";
        }
        print PKG "Filename: $file\n";
        print PKG "Size: $ftp{$file}\n";
@@ -658,7 +658,7 @@ sub infoPackages {
     # download packages file.
     # hrm...
     my %urls = &fixDist($dist, %urlpackages);
-    if ($dist ne "incoming") {
+    if ($dist ne 'incoming') {
        &::DEBUG("deb: download 3.") if ($debug);
 
        if (!&DebianDownload($dist, %urls)) {   # no good download.
@@ -671,7 +671,7 @@ sub infoPackages {
     my @files = &validPackage($package, $dist);
     if (!scalar @files) {
        &::status("Debian: no valid package found; checking incoming.");
-       @files = &validPackage($package, "incoming");
+       @files = &validPackage($package, 'incoming');
 
        if (scalar @files) {
            &::status("Debian: cool, it exists in incoming.");
@@ -709,10 +709,10 @@ sub infoPackages {
     }
     my %pkg = &getPackageInfo($package, $file);
 
-    $query = "info" if ($query eq "dinfo");
+    $query = 'info' if ($query eq 'dinfo');
 
     # 'fm'-like output.
-    if ($query eq "info") {
+    if ($query eq 'info') {
        if (scalar keys %pkg <= 5) {
            &::DEBUG("deb: running debianCheck() due to problems (".scalar(keys %pkg).").");
            &debianCheck();
@@ -742,20 +742,20 @@ sub infoPackages {
        }
     }
 
-    if ($dist eq "incoming") {
+    if ($dist eq 'incoming') {
        $pkg{'info'} .= "Version: \002$pkg{'version'}\002";
        $pkg{'info'} .= ", Packaged size: \002". int($pkg{'size'}/1024) ."\002 kB";
        $pkg{'info'} .= ", is in incoming!!!";
     }
 
     if (!exists $pkg{$query}) {
-       if ($query eq "suggests") {
+       if ($query eq 'suggests') {
            $pkg{$query} = "has no suggestions";
-       } elsif ($query eq "conflicts") {
+       } elsif ($query eq 'conflicts') {
            $pkg{$query} = "does not conflict with any other package";
-       } elsif ($query eq "depends") {
+       } elsif ($query eq 'depends') {
            $pkg{$query} = "does not depend on anything";
-       } elsif ($query eq "maint") {
+       } elsif ($query eq 'maint') {
            $pkg{$query} = "has no maintainer";
        } else {
            $pkg{$query} = "has nothing about $query";
@@ -967,7 +967,7 @@ sub searchPackage {
     unlink $file if ( -z $file );
 
     while (!open IN, $file) {
-       if ($dist eq "incoming") {
+       if ($dist eq 'incoming') {
            &::DEBUG("deb: sP: dist == incoming; calling gI().");
            &generateIncoming();
        }
@@ -1015,7 +1015,7 @@ sub searchPackage {
 sub getDistro {
     my $dist = $_[0];
 
-    if (!defined $dist or $dist eq "") {
+    if (!defined $dist or $dist eq '') {
        &::DEBUG("deb: gD: dist == NULL; dist = defaultdist.");
        $dist = $defaultdist;
     }
@@ -1077,10 +1077,10 @@ sub DebianFind {
     my @results = sort &searchPackage($str);
 
     if (!scalar @results) {
-       &::Forker("Debian", sub { &searchContents($str); } );
+       &::Forker('Debian', sub { &searchContents($str); } );
     } elsif (scalar @results == 1) {
        &::status("searchPackage returned one result; getting info of package instead!");
-       &::Forker("Debian", sub { &infoPackages("info", "$results[0] $dist"); } );
+       &::Forker('Debian', sub { &infoPackages('info', "$results[0] $dist"); } );
     } else {
        my $prefix = "Debian Package Listing of '$query' ";
        &::performStrictReply( &::formListReply(0, $prefix, @results) );
@@ -1146,7 +1146,7 @@ sub searchDescFE {
        &::performStrictReply( &::formListReply(0, $prefix, ) );
     } elsif (scalar @list == 1) {      # list = 1.
        &::DEBUG("deb: list == 1; showing package info of '$list[0]'.");
-       &infoPackages("info", $list[0]);
+       &infoPackages('info', $list[0]);
     } else {                           # list > 1.
        my $prefix = "Debian Desc Search of '$query' ";
        &::performStrictReply( &::formListReply(0, $prefix, @list) );