[SCM] Video extraction utility for YouTube, Google Video and other video sites (Debian packaging) branch, master, updated. upstream/2.1.7-214-g6762190

legatvs legatvs at gmail.com
Wed Apr 1 14:45:15 UTC 2009


The following commit has been merged in the master branch:
commit b6bac31514acced36c9e862fb85a4bf32f1a2a31
Author: legatvs <legatvs at gmail.com>
Date:   Sun Mar 22 02:09:41 2009 +0200

    Rewrite --version output.

diff --git a/clive b/clive
index 4f9e46d..68d58ce 100755
--- a/clive
+++ b/clive
@@ -1633,18 +1633,19 @@ sub emit {
 }
 
 sub print_version {
-    printf("clive %s.  Copyright (c) 2007-2009 Toni Gundogdu.\n",VERSION);
-    my $perl_v      = sprintf "%vd", $^V;
-    printf("--with-perl=%s-%s ",$perl_v,$^O);
-    my $i = 0;
+    my $perl_v  = sprintf("--with-perl=%vd-%s",$^V,$^O);
+    my $str     = sprintf("clive %s.  "
+                    . "Copyright (c) 2007-2009 Toni Gundogdu "
+                    . "<legatvs\@gmail.com>.\n",VERSION);
+    my $i       = 0;
     foreach (sort keys %opted_mods) {
-        printf("--with-$_=%s ", $opted_mods{$_} ? "yes":"no");
-        print "\n"
-            if (++$i % 2 == 0)
+        $str .= sprintf("--with-$_=%s ", $opted_mods{$_} ? "yes":"no");
+        $str .= "\n"  if (++$i % 4 == 0);
     }
-    print "\nclive is licensed under the ISC license which is functionally\n"
+    $str .= "\nclive is licensed under the ISC license which is functionally\n"
         . "equivalent to the 2-clause BSD licence.\n"
         . "\tReport bugs to <http://code.google.com/p/clive/issues/>.\n";
+    print "$str";
     exit;
 }
 

-- 
Video extraction utility for YouTube, Google Video and other video sites (Debian packaging)



More information about the Pkg-perl-cvs-commits mailing list