Hello community, here is the log from the commit of package perl-File-Tail for openSUSE:Factory checked in at 2015-02-10 20:21:25 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-File-Tail (Old) and /work/SRC/openSUSE:Factory/.perl-File-Tail.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-File-Tail" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-File-Tail/perl-File-Tail.changes 2011-11-21 12:40:08.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-File-Tail.new/perl-File-Tail.changes 2015-02-10 20:21:26.000000000 +0100 @@ -1,0 +2,7 @@ +Fri Feb 6 13:13:01 UTC 2015 - [email protected] + +- updated to 1.0 + * Actually just two minor bug fixes (one of them in a test), but I no + longer see a point in not having a 1.0 version. + +------------------------------------------------------------------- Old: ---- File-Tail-0.99.3.tar.gz New: ---- File-Tail-1.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-File-Tail.spec ++++++ --- /var/tmp/diff_new_pack.rxOdTh/_old 2015-02-10 20:21:27.000000000 +0100 +++ /var/tmp/diff_new_pack.rxOdTh/_new 2015-02-10 20:21:27.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-File-Tail # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -15,54 +15,69 @@ # Please submit bugfixes or comments via http://bugs.opensuse.org/ # -# norootforbuild - Name: perl-File-Tail -Url: http://search.cpan.org/search?module=File::Tail -License: Artistic-1.0 +Version: 1.0 +Release: 0 +%define cpan_name File-Tail +Summary: Perl extension for reading from continuously updated files +License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl -AutoReqProv: on -Summary: Reading files which are continuously appended -Version: 0.99.3 -Release: 143 -Source: File-Tail-%{version}.tar.gz +Url: http://search.cpan.org/dist/File-Tail/ +Source: http://www.cpan.org/authors/id/M/MG/MGRABNAR/%{cpan_name}-%{version}.tar.gz +BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build -%{perl_requires} BuildRequires: perl BuildRequires: perl-macros +%{perl_requires} %description -The File::Tail module is designed for reading files which are -continously appended to (the name comes from the tail -f directive). -Usually such files are logfiles of some description. +The primary purpose of File::Tail is reading and analysing log files while +they are being written, which is especialy useful if you are monitoring the +logging process with a tool like Tobias Oetiker's MRTG. + +The module tries very hard NOT to "busy-wait" on a file that has little +traffic. Any time it reads new data from the file, it counts the number of +new lines, and divides that number by the time that passed since data were +last written to the file before that. That is considered the average time +before new data will be written. When there is no new data to read, +'File::Tail' sleeps for that number of seconds. Thereafter, the waiting +time is recomputed dynamicaly. Note that 'File::Tail' never sleeps for more +than the number of seconds set by 'maxinterval'. + +If the file does not get altered for a while, 'File::Tail' gets suspicious +and startschecking if the file was truncated, or moved and recreated. If +anything like that had happened, 'File::Tail' will quietly reopen the file, +and continue reading. The only way to affect what happens on reopen is by +setting the reset_tail parameter (see below). The effect of this is that +the scripts need not be aware when the logfiles were rotated, they will +just quietly work on. + +Note that the sleep and time used are from Time::HiRes, so this module +should do the right thing even if the time to sleep is less than one +second. - - -Authors: --------- - Matija Grabnar +The logwatch script (also included) demonstrates several ways of calling +the methods. %prep -%setup -n File-Tail-%{version} +%setup -q -n %{cpan_name}-%{version} +find . -type f -print0 | xargs -0 chmod 644 %build -perl Makefile.PL -make %{?_smp_mflags} -make test +%{__perl} Makefile.PL INSTALLDIRS=vendor +%{__make} %{?_smp_mflags} + +%check +%{__make} test %install -rm -rf $RPM_BUILD_ROOT; -make DESTDIR=$RPM_BUILD_ROOT install_vendor +%perl_make_install %perl_process_packlist +%perl_gen_filelist -%files -%defattr(-,root,root) -%doc Changes MANIFEST README -%dir %{perl_vendorarch}/auto/File -%{perl_vendorarch}/auto/File/Tail -%dir %{perl_vendorlib}/File -%{perl_vendorlib}/File/Tail.pm -%{_mandir}/man3/* +%files -f %{name}.files +%defattr(-,root,root,755) +%doc Changes logwatch README select_demo Tail.pm.debug %changelog ++++++ File-Tail-0.99.3.tar.gz -> File-Tail-1.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Tail-0.99.3/Changes new/File-Tail-1.0/Changes --- old/File-Tail-0.99.3/Changes 2005-09-14 16:02:54.000000000 +0200 +++ new/File-Tail-1.0/Changes 2014-12-03 12:33:47.000000000 +0100 @@ -101,4 +101,8 @@ files that change their names with time. 0.99.3 Firefox crashed while I attempted upload to PAUSE, so I had to make - a new version just for that. Life is ridiculous. \ No newline at end of file + a new version just for that. Life is ridiculous. + +1.0 Actually just two minor bug fixes (one of them in a test), but I no + longer see a point in not having a 1.0 version. + \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Tail-0.99.3/META.yml new/File-Tail-1.0/META.yml --- old/File-Tail-0.99.3/META.yml 2005-09-14 16:05:39.000000000 +0200 +++ new/File-Tail-1.0/META.yml 2014-12-03 12:40:06.000000000 +0100 @@ -1,7 +1,7 @@ # http://module-build.sourceforge.net/META-spec.html #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# name: File-Tail -version: 0.99.3 +version: 1.0 version_from: Tail.pm.debug installdirs: site requires: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Tail-0.99.3/Tail.pm new/File-Tail-1.0/Tail.pm --- old/File-Tail-0.99.3/Tail.pm 2005-09-14 16:04:16.000000000 +0200 +++ new/File-Tail-1.0/Tail.pm 2014-12-03 12:38:39.000000000 +0100 @@ -9,7 +9,7 @@ # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. -$VERSION = '0.99.3'; +$VERSION = '1.0'; # Preloaded methods go here. @@ -516,7 +516,7 @@ while ($nlen>0) { $len=sysread($object->{handle},$object->{"buffer"}, $nlen,length($object->{"buffer"})); - return 0 if $len==0; # Some busy filesystems return 0 sometimes, + last if $len==0; # Some busy filesystems return 0 sometimes, # and never give anything more from then on if # you don't give them time to rest. This return # allows File::Tail to use the usual exponential @@ -585,7 +585,7 @@ =head1 NAME -File::Tail - Perl extension for reading from continously updated files +File::Tail - Perl extension for reading from continuously updated files =head1 SYNOPSIS @@ -604,12 +604,11 @@ OR, you could use tie (additional parameters can be passed with the name, or can be set using $ref): - use File::Tail; - my $ref=tie *FH,"File::Tail",(name=>$name); - while (<FH>) { - print "$_"; - } - + use File::Tail; + my $ref=tie *FH,"File::Tail",(name=>$name); + while (<FH>) { + print "$_"; + } Note that the above script will never exit. If there is nothing being written to the file, it will simply block. @@ -627,7 +626,7 @@ =head1 DESCRIPTION The primary purpose of File::Tail is reading and analysing log files while -they are being written, which is especialy usefull if you are monitoring +they are being written, which is especialy useful if you are monitoring the logging process with a tool like Tobias Oetiker's MRTG. The module tries very hard NOT to "busy-wait" on a file that has little @@ -657,7 +656,7 @@ =head2 new ([ ARGS ]) -Creates a C<File::Tail>. If it has only one paramter, it is assumed to +Creates a C<File::Tail>. If it has only one parameter, it is assumed to be the filename. If the open fails, the module performs a croak. I am currently looking for a way to set $! and return undef. @@ -720,36 +719,35 @@ =item ignore_nonexistant - Do not complain if the file doesn't exist when it is first +Do not complain if the file doesn't exist when it is first opened or when it is to be reopened. (File may be reopened after resetafter seconds have passed since last data was found.) =item tail - When first started, read and return C<n> lines from the file. +When first started, read and return C<n> lines from the file. If C<n> is zero, start at the end of file. If C<n> is negative, return the whole file. - Default is C<0>. +Default is C<0>. =item reset_tail - Same as tail, but applies after reset. (i.e. after the -file has been automaticaly closed and reopened). Defaults to +Same as tail, but applies after reset. (i.e. after the +file has been automatically closed and reopened). Defaults to C<-1>, i.e. does not skip any information present in the file when it first checks it. - Why would you want it otherwise? I've seen files which +Why would you want it otherwise? I've seen files which have been cycled like this: - grep -v lastmonth log >newlog - mv log archive/lastmonth - mv newlog log - kill -HUP logger - + grep -v lastmonth log >newlog + mv log archive/lastmonth + mv newlog log + kill -HUP logger Obviously, if this happens and you have reset_tail set to -c<-1>, you will suddenly get a whole bunch of lines - lines +C<-1>, you will suddenly get a whole bunch of lines - lines you already saw. So in this case, reset_tail should probably be set to a small positive number or even C<0>. @@ -777,9 +775,9 @@ reference as the first parameter and other parameters to be passed to handler subroutine, or one of the words: -return - ignore any error (just put error message in errmsg). -warn - output the error message but continue -die - display error message and exit + return - ignore any error (just put error message in errmsg). + warn - output the error message but continue + die - display error message and exit Default is die. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Tail-0.99.3/Tail.pm.debug new/File-Tail-1.0/Tail.pm.debug --- old/File-Tail-0.99.3/Tail.pm.debug 2005-09-14 16:03:58.000000000 +0200 +++ new/File-Tail-1.0/Tail.pm.debug 2014-12-03 12:38:30.000000000 +0100 @@ -9,7 +9,7 @@ # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. -$VERSION = '0.99.3'; +$VERSION = '1.0'; # Preloaded methods go here. @@ -545,7 +545,7 @@ while ($nlen>0) { $len=sysread($object->{handle},$object->{"buffer"}, $nlen,length($object->{"buffer"})); - return 0 if $len==0; # Some busy filesystems return 0 sometimes, + last if $len==0; # Some busy filesystems return 0 sometimes, # and never give anything more from then on if # you don't give them time to rest. This return # allows File::Tail to use the usual exponential diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Tail-0.99.3/t/10open.t new/File-Tail-1.0/t/10open.t --- old/File-Tail-0.99.3/t/10open.t 1998-12-18 10:23:09.000000000 +0100 +++ new/File-Tail-1.0/t/10open.t 2014-12-03 12:26:36.000000000 +0100 @@ -71,7 +71,7 @@ # # Test 6 - Read on moved and reopened file # -system("mv $testname $testname-tmp"); +rename($testname, "$testname-tmp"); open(TEST,">$testname"); $teststring="This is yet another test string\n"; print TEST $teststring; -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
