* updated konsole (21.12.1 -> 21.12.2), untested
[t2-trunk.git] / misc / archive / reverse-log.pl
blob6a58731d14fd167e2748095ce021267e02cec6db
1 #!/usr/bin/perl
3 # --- T2-COPYRIGHT-NOTE-BEGIN ---
4 # This copyright note is auto-generated by ./scripts/Create-CopyPatch.
5 #
6 # T2 SDE: misc/archive/reverse-log.pl
7 # Copyright (C) 2004 - 2005 The T2 SDE Project
8 # Copyright (C) 1998 - 2003 ROCK Linux Project
9 #
10 # More information can be found in the files COPYING and README.
12 # This program is free software; you can redistribute it and/or modify
13 # it under the terms of the GNU General Public License as published by
14 # the Free Software Foundation; version 2 of the License. A copy of the
15 # GNU General Public License can be found in the file COPYING.
16 # --- T2-COPYRIGHT-NOTE-END ---
18 $c=0; while (<>) { $c++ if /^\s*\*\)\s/; @_[$c].=$_; } print reverse @_;