[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