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 $
## $Date: 2004/11/07 15:28:35 $
## $Author: fluffy $
## $Revision: 2.59 $
## $Date: 2005/05/18 05:34:34 $
## $Author: kfogel $
##
use strict;
@ -141,7 +141,7 @@ use User::pwent qw( getpwnam );
# Globals --------------------------------------------------------------------
# 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/;
## Vars set by options:
@ -1317,9 +1317,9 @@ my $self = shift; my $class = ref $self;
while (<OLD_LOG>) {
if ( ! $passed_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;
} 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;
print NEW_LOG $_;
}
@ -2391,7 +2391,7 @@ sub maybe_grab_accumulation_date {
my $boundary_date;
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";
last;