r59837 - /scripts/examples/gen-itp

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

Author: carnil-guest
Date: Sun Jun 27 05:45:11 2010
New Revision: 59837

URL: http://svn.debian.org/wsvn/?sc=1&rev=59837
Log:
3-way open, and strings which does not get interpolated only in single quotes

Modified:
    scripts/examples/gen-itp

Modified: scripts/examples/gen-itp
URL: http://svn.debian.org/wsvn/scripts/examples/gen-itp?rev=59837&op=diff
==============================================================================
--- scripts/examples/gen-itp (original)
+++ scripts/examples/gen-itp Sun Jun 27 05:45:11 2010
@@ -27,111 +27,127 @@
     print $line . "\n";
 }
 my $control = Dpkg::Control::Info->new();
-my $source = $control->get_source;
-my @pkgs = $control->get_packages;
-my $pkg = $pkgs[0];
+my $source  = $control->get_source;
+my @pkgs    = $control->get_packages;
+my $pkg     = $pkgs[0];
 my $upstream;
 my @files;
 my $main_files;
 my @licenses;
 my $copyright_file;
-my @descriptions = split("\n", $pkg->{Description});
+my @descriptions = split( "\n", $pkg->{Description} );
 my $short_description = $descriptions[0];
-open($copyright_file, "<", "debian/copyright");
+open( $copyright_file, '<', 'debian/copyright' );
 eval {
-while(1) {
-    my $_ = Dpkg::Control->new();
-    last if not $_->parse($copyright_file, "debian/copyright");
-    if($_->{'Format-Specification'}) {
-        $upstream = $_;
-    } elsif ($_->{Files}) {
-        if($_->{Files} eq "*") {
-            $main_files = $_;
+    while (1)
+    {
+        my $_ = Dpkg::Control->new();
+        last if not $_->parse( $copyright_file, 'debian/copyright' );
+        if ( $_->{'Format-Specification'} ) {
+            $upstream = $_;
         }
-        push @files, $_;
-    } elsif ($_->{License}) {
-        push @licenses, $_;
-    } else {
-        die("unknown block");
+        elsif ( $_->{Files} ) {
+            if ( $_->{Files} eq '*' ) {
+                $main_files = $_;
+            }
+            push @files, $_;
+        }
+        elsif ( $_->{License} ) {
+            push @licenses, $_;
+        }
+        else {
+            die('unknown block');
+        }
     }
-}
 };
 close $copyright_file;
 my $changelog_file;
-open $changelog_file, "-|", "dpkg-parsechangelog";
+open $changelog_file, '-|', 'dpkg-parsechangelog';
 my $changelog = Dpkg::Control->new();
-$changelog->parse($changelog_file, "debian/changelog");
+$changelog->parse( $changelog_file, 'debian/changelog' );
 close $changelog_file;
 
 my $lang;
-if($source->{Source} =~ m/-perl$/) {
-    $lang = "Perl";
-} elsif($source->{Source} =~ m/-ruby$/) {
-    $lang = "Ruby";
-} else {
-    $lang = "FIXME";
+if ( $source->{Source} =~ m/-perl$/ ) {
+    $lang = 'Perl';
+}
+elsif ( $source->{Source} =~ m/-ruby$/ ) {
+    $lang = 'Ruby';
+}
+else {
+    $lang = 'FIXME';
 }
 
-p "From: " . $changelog->{Maintainer};
-if($ENV{SECRETLY_ITP}) {
+p 'From: ' . $changelog->{Maintainer};
+if ( $ENV{SECRETLY_ITP} ) {
     p "To: Debian Bug Tracking System <quiet\@bugs.debian.org>";
-} else {
+}
+else {
     p "To: Debian Bug Tracking System <submit\@bugs.debian.org>";
 }
-p "Subject: ITP: " . $source->{Source} . " -- " . $short_description;
-p "Date: " . `date -R`;
+p 'Subject: ITP: ' . $source->{Source} . ' -- ' . $short_description;
+p 'Date: ' . `date -R`;
+
 # ^ that adds an extra newline ... bwahahahaha!
 my $owner;
-if($source->{Uploaders}) {
+if ( $source->{Uploaders} ) {
     $owner = $source->{Uploaders};
-} else {
+}
+else {
     $owner = $source->{Maintainer};
 }
-p "Package: wnpp";
-p "Owner: " . $owner;
-p "Severity: wishlist";
+p 'Package: wnpp';
+p 'Owner: ' . $owner;
+p 'Severity: wishlist';
 
-if(!$ENV{SECRETLY_ITP}) {
-if($lang eq "Perl") {
-    p "X-Debbugs-CC: debian-devel\@lists.debian.org,debian-perl\@lists.debian.org";
-} else {
-    p "X-Debbugs-CC: debian-devel\@lists.debian.org";
-}
+if ( !$ENV{SECRETLY_ITP} ) {
+    if ( $lang eq 'Perl' ) {
+        p
+            "X-Debbugs-CC: debian-devel\@lists.debian.org,debian-perl\@lists.debian.org";
+    }
+    else {
+        p "X-Debbugs-CC: debian-devel\@lists.debian.org";
+    }
 }
 
 p;
-p "* Package name    : " . $source->{Source};
+p '* Package name    : ' . $source->{Source};
 
 my $version = $changelog->{Version};
 $version =~ s/-1$//;
-p "  Version         : " . $version;
+p '  Version         : ' . $version;
 
 my $maintainer;
-if($upstream->{'Upstream-Maintainer'}) {
+if ( $upstream->{'Upstream-Maintainer'} ) {
     $maintainer = $upstream->{'Upstream-Maintainer'};
-} elsif($upstream->{'Maintainer'}) {
+}
+elsif ( $upstream->{'Maintainer'} ) {
     $maintainer = $upstream->{'Maintainer'};
-} else {
+}
+else {
     $maintainer = 'FIXME';
 }
 p "  Upstream Author : " . $maintainer;
 
 my $homepage;
-if($source->{Homepage}) {
+if ( $source->{Homepage} ) {
     $homepage = $source->{Homepage};
-} elsif($upstream->{'Upstream-Source'}) {
+}
+elsif ( $upstream->{'Upstream-Source'} ) {
     $homepage = $upstream->{'Upstream-Source'};
-} elsif($upstream->{'Source'}) {
+}
+elsif ( $upstream->{'Source'} ) {
     $homepage = $upstream->{'Source'};
-} else {
-    $homepage= 'FIXME';
+}
+else {
+    $homepage = 'FIXME';
 }
 
-p "* URL             : " . $homepage;
-p "* License         : " . ($main_files->{'License'} || "FIXME");
-p "  Programming Lang: " . $lang;
+p '* URL             : ' . $homepage;
+p '* License         : ' . ( $main_files->{'License'} || 'FIXME' );
+p '  Programming Lang: ' . $lang;
 
-my ($short, $long) = split(/\n/, $pkg->{Description}, 2);
-p "  Description     : " . $short;
+my ( $short, $long ) = split( /\n/, $pkg->{Description}, 2 );
+p '  Description     : ' . $short;
 p;
 p $long;