misc/archive/reverse-log.pl

   1 #!/usr/bin/perl
   2 #
   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.
  11 #
  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 ---
  17
  18 $c=0; while (<>) { $c++ if /^\s*\*\)\s/; @_[$c].=$_; } print reverse @_;
  19