mirror/upx
1
0
Fork 0
mirror of https://github.com/upx/upx synced 2025-09-28 19:06:07 +08:00
Code Issues Releases Wiki Activity

New upstream version.

Browse Source 
committer: mfx <mfx> 1119613222 +0000
This commit is contained in:
Markus F.X.J. Oberhumer 2005-06-24 11:40:22 +00:00
parent fbfced1b93
commit 9777e549cb
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scripts/cvs2cl.pl
View File

@ -1,4 +1,4 @@
#! /usr/bin/perl -w #! /usr/bin/perl
############################################################## ##############################################################
@ -7,9 +7,9 @@
### ### ### ###
############################################################## ##############################################################
## $Revision: 2.58 $ ## $Revision: 2.59 $
## $Date: 2004/11/07 15:28:35 $ ## $Date: 2005/05/18 05:34:34 $
## $Author: fluffy $ ## $Author: kfogel $
## ##
use strict; use strict;
@ -141,7 +141,7 @@ use User::pwent qw( getpwnam );
# Globals -------------------------------------------------------------------- # Globals --------------------------------------------------------------------
# In case we have to print it out: # In case we have to print it out:
my $VERSION = '$Revision: 2.58 $'; my $VERSION = '$Revision: 2.59 $';
$VERSION =~ s/\S+\s+(\S+)\s+\S+/$1/; $VERSION =~ s/\S+\s+(\S+)\s+\S+/$1/;
## Vars set by options: ## Vars set by options:
@ -1317,9 +1317,9 @@ my $self = shift; my $class = ref $self;
while (<OLD_LOG>) { while (<OLD_LOG>) {
if ( ! $passed_first_entry ) { if ( ! $passed_first_entry ) {
if ( ( ! $started_first_entry ) if ( ( ! $started_first_entry )
and /^(\d\d\d\d-\d\d-\d\d\s+\d\d:\d\d)/ ) { and /^(\d\d\d\d-\d\d-\d\d\s+(\w+\s+)?\d\d:\d\d)/ ) {
$started_first_entry = 1; $started_first_entry = 1;
} elsif ( /^(\d\d\d\d-\d\d-\d\d\s+\d\d:\d\d)/ ) { } elsif ( /^(\d\d\d\d-\d\d-\d\d\s+(\w+\s+)?\d\d:\d\d)/ ) {
$passed_first_entry = 1; $passed_first_entry = 1;
print NEW_LOG $_; print NEW_LOG $_;
} }
@ -2391,7 +2391,7 @@ sub maybe_grab_accumulation_date {
my $boundary_date; my $boundary_date;
while (<LOG>) while (<LOG>)
{ {
if (/^(\d\d\d\d-\d\d-\d\d\s+\d\d:\d\d)/) if (/^(\d\d\d\d-\d\d-\d\d\s+(\w+\s+)?\d\d:\d\d)/)
{ {
$boundary_date = "$1"; $boundary_date = "$1";
last; last;