[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:20 UTC 2009


The following commit has been merged in the master branch:
commit 7465e6a83c3e91516939cd5a1d715c958a55706b
Author: legatvs <legatvs at gmail.com>
Date:   Mon Mar 23 19:11:48 2009 +0200

    Change print_version to use a while loop for printing the --with-$mod.

diff --git a/clive b/clive
index 3438e12..1cb5a45 100755
--- a/clive
+++ b/clive
@@ -1626,13 +1626,13 @@ sub print_version {
     my $str     = sprintf("clive %s.  "
                     . "Copyright (c) 2007-2009 Toni Gundogdu "
                     . "<legatvs\@gmail.com>.\n",VERSION);
-    my $i       = 0;
     $str .= "$perl_v ";
-    foreach (sort keys %opted_mods) {
-        $str .= sprintf("--with-$_=%s ", $opted_mods{$_} ? "yes":"no");
+    my $i = 0;
+    while (my ($key,$value) = each(%opted_mods)) {
+        $str .= sprintf("--with-$key=%s ",$value ? "yes":"no");
         $str .= "\n"  if (++$i % 2 == 0);
     }
-    $str .= "\nclive is licensed under the ISC license which is functionally\n"
+    $str .= "clive 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";

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



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