r41080 - in /trunk/libfile-next-perl: Changes MANIFEST META.yml Makefile.PL Next.pm debian/changelog debian/compat debian/control debian/copyright debian/rules t/dot.t t/everything.t t/methods.t
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sat Aug 1 12:44:09 UTC 2009
Author: ansgar-guest
Date: Sat Aug 1 12:44:03 2009
New Revision: 41080
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=41080
Log:
* New upstream release.
* debian/copyright: Update to current proposal.
* debian/copyright: Do not list Debian Perl Group as copyright holder.
Instead list all contributors (taken from debian/changelog).
* debian/copyright: Add X-Contact-BTS field.
* Bump Standards-Version to 3.8.2.
* debian/control: Do not capitalize short description.
* Add myself to Uploaders.
* Refresh rules for debhelper 7.
Added:
trunk/libfile-next-perl/t/methods.t
- copied unchanged from r41079, branches/upstream/libfile-next-perl/current/t/methods.t
Modified:
trunk/libfile-next-perl/Changes
trunk/libfile-next-perl/MANIFEST
trunk/libfile-next-perl/META.yml
trunk/libfile-next-perl/Makefile.PL
trunk/libfile-next-perl/Next.pm
trunk/libfile-next-perl/debian/changelog
trunk/libfile-next-perl/debian/compat
trunk/libfile-next-perl/debian/control
trunk/libfile-next-perl/debian/copyright
trunk/libfile-next-perl/debian/rules
trunk/libfile-next-perl/t/dot.t
trunk/libfile-next-perl/t/everything.t
Modified: trunk/libfile-next-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-next-perl/Changes?rev=41080&op=diff
==============================================================================
--- trunk/libfile-next-perl/Changes (original)
+++ trunk/libfile-next-perl/Changes Sat Aug 1 12:44:03 2009
@@ -1,8 +1,23 @@
Revision history for File-Next
-Please note that as of version 1.02, File::Next no longer uses
-rt.cpan.org for bug tracking. Please report problems at
-http://code.google.com/p/file-next/.
+File::Next does NOT use rt.cpan.org for bug tracking. Please report
+problems at http://github.com/petdance/file-next/issues.
+
+1.04 Fri Jul 31 16:24:36 CDT 2009
+ [ENHANCEMENTS]
+ It's never been correct to call File::Next::files() as a method,
+ as File::Next->files(). Now, if you do, files() will die with
+ an error. This is also the case with dirs() and everything().
+ Thanks to Eric Lyons for reporting.
+
+ Tiny directory reading speedups.
+
+ [DOCUMENTATION]
+ Updated URLs for support sites.
+
+ Added a little note about the follow_symlinks=>0 being a speed
+ hit.
+
1.02 Mon Jan 14 14:01:40 CST 2008
[SPEED ENHANCEMENTS]
Modified: trunk/libfile-next-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-next-perl/MANIFEST?rev=41080&op=diff
==============================================================================
--- trunk/libfile-next-perl/MANIFEST (original)
+++ trunk/libfile-next-perl/MANIFEST Sat Aug 1 12:44:03 2009
@@ -12,6 +12,7 @@
t/dot.t
t/everything.t
t/follow.t
+t/methods.t
t/parms.t
t/pod-coverage.t
t/pod.t
Modified: trunk/libfile-next-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-next-perl/META.yml?rev=41080&op=diff
==============================================================================
--- trunk/libfile-next-perl/META.yml (original)
+++ trunk/libfile-next-perl/META.yml Sat Aug 1 12:44:03 2009
@@ -1,19 +1,27 @@
--- #YAML:1.0
-name: File-Next
-version: 1.02
-abstract: File-finding iterator
-license: ~
-author:
+name: File-Next
+version: 1.04
+abstract: File-finding iterator
+author:
- Andy Lester <andy at petdance.com>
-generated_by: ExtUtils::MakeMaker version 6.42
-distribution_type: module
-requires:
- File::Spec: 0
- Test::More: 0
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ File::Spec: 0
+ Test::More: 0
+resources:
+ bugtracker: http://github.com/petdance/file-next/issues
+ license: http://dev.perl.org/licenses/
+ repository: http://github.com/petdance/file-next/tree/master
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.50
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
-resources:
- bugtracker: http://code.google.com/p/file-next/issues/list
- license: http://dev.perl.org/licenses/
- Repository: http://code.google.com/p/file-next/source
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: trunk/libfile-next-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-next-perl/Makefile.PL?rev=41080&op=diff
==============================================================================
--- trunk/libfile-next-perl/Makefile.PL (original)
+++ trunk/libfile-next-perl/Makefile.PL Sat Aug 1 12:44:03 2009
@@ -1,4 +1,7 @@
package main;
+
+use 5.006001;
+
use strict;
use warnings;
use ExtUtils::MakeMaker;
@@ -17,14 +20,19 @@
clean => { FILES => 'File-Next-*' },
);
-if ( $ExtUtils::MakeMaker::VERSION ge '6.36' ) {
- $parms{EXTRA_META} = <<EOF;
-resources:
- bugtracker: http://code.google.com/p/file-next/issues/list
- license: http://dev.perl.org/licenses/
- Repository: http://code.google.com/p/file-next/source
-EOF
- }
+if ( $ExtUtils::MakeMaker::VERSION =~ /^\d\.\d\d$/ and $ExtUtils::MakeMaker::VERSION > 6.30 ) {
+ $parms{LICENSE} = 'perl';
+}
+
+if ( $ExtUtils::MakeMaker::VERSION ge '6.46' ) {
+ $parms{META_MERGE} = {
+ resources => {
+ bugtracker => 'http://github.com/petdance/file-next/issues',
+ repository => 'http://github.com/petdance/file-next/tree/master',
+ license => 'http://dev.perl.org/licenses/',
+ }
+ };
+}
WriteMakefile( %parms );
@@ -32,16 +40,26 @@
return <<'MAKE_FRAG';
.PHONY: tags critic
+tags:
+ ctags -f tags --recurse --totals \
+ --exclude=blib \
+ --exclude=.git \
+ --exclude=.svn \
+ --exclude='*~' \
+ --languages=Perl --langmap=Perl:+.t \
+
critic:
perlcritic -profile perlcriticrc -1 -quiet *.pm t/*.t
+TARGET_DIRS=~/parrot /usr/local/minicpan ~/bin
+
prof: all
- perl -d:DProf -Mblib ./stress ~/parrot ~/bw/trunk ~/p101 ~/bin /Developer > /dev/null
+ perl -d:DProf -Mblib ./stress $(TARGET_DIRS)
dprofpp -R
-smallprof: all
- perl -d:SmallProf -Mblib ./stress ~/parrot ~/bw/trunk ~/p101 ~/bin /Developer > /dev/null
- sort -k 2nr,2 smallprof.out | less
+nytprof: all
+ perl -d:NYTProf -Mblib ./stress $(TARGET_DIRS)
+ nytprofhtml
MAKE_FRAG
}
Modified: trunk/libfile-next-perl/Next.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-next-perl/Next.pm?rev=41080&op=diff
==============================================================================
--- trunk/libfile-next-perl/Next.pm (original)
+++ trunk/libfile-next-perl/Next.pm Sat Aug 1 12:44:03 2009
@@ -9,11 +9,11 @@
=head1 VERSION
-Version 1.02
+Version 1.04
=cut
-our $VERSION = '1.02';
+our $VERSION = '1.04';
=head1 SYNOPSIS
@@ -193,6 +193,11 @@
Note that this filter does not apply to any of the I<@starting_points>
passed in to the constructor.
+
+You should not set C<< follow_symlinks => 0 >> unless you specifically
+need that behavior. Setting C<< follow_symlinks => 0 >> can be a
+speed hit, because File::Next must check to see if the file or
+directory you're about to follow is actually a symlink.
=cut
@@ -218,6 +223,8 @@
sub files {
+ ($_[0] eq __PACKAGE__) && die 'File::Next::files must not be invoked as File::Next->files';
+
my ($parms, at queue) = _setup( \%files_defaults, @_ );
my $filter = $parms->{file_filter};
@@ -244,6 +251,8 @@
sub dirs {
+ ($_[0] eq __PACKAGE__) && die 'File::Next::dirs must not be invoked as File::Next->dirs';
+
my ($parms, at queue) = _setup( \%files_defaults, @_ );
return sub {
@@ -261,6 +270,8 @@
sub everything {
+ ($_[0] eq __PACKAGE__) && die 'File::Next::everything must not be invoked as File::Next->everything';
+
my ($parms, at queue) = _setup( \%files_defaults, @_ );
my $filter = $parms->{file_filter};
@@ -379,8 +390,7 @@
my $follow_symlinks = $parms->{follow_symlinks};
my $sort_sub = $parms->{sort_files};
- while ( defined ( my $file = readdir $dh ) ) {
- next if $skip_dirs{$file};
+ for my $file ( grep { !exists $skip_dirs{$_} } readdir $dh ) {
my $has_stat;
# Only do directory checking if we have a descend_filter
@@ -413,6 +423,14 @@
return @newfiles;
}
+=head1 SPEED TWEAKS
+
+=over 4
+
+=item * Don't set C<< follow_symlinks => 0 >> unless you need it.
+
+=back
+
=head1 AUTHOR
Andy Lester, C<< <andy at petdance.com> >>
@@ -420,8 +438,9 @@
=head1 BUGS
Please report any bugs or feature requests to
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=File-Next>. Note that
-File::Next does NOT use L<rt.cpan.org> for bug tracking.
+L<http://github.com/petdance/file-next/issues>.
+
+Note that File::Next does NOT use L<http://rt.cpan.org> for bug tracking.
=head1 SUPPORT
@@ -435,7 +454,7 @@
=item * File::Next's bug queue
-L<http://code.google.com/p/file-next/issues/list>
+L<http://github.com/petdance/file-next/issues>
=item * AnnoCPAN: Annotated CPAN documentation
@@ -449,9 +468,9 @@
L<http://search.cpan.org/dist/File-Next>
-=item * Subversion repository
-
-L<https://file-next.googlecode.com/svn/trunk>
+=item * Source code repository
+
+L<http://github.com/petdance/file-next/tree/master>
=back
@@ -462,11 +481,20 @@
=head1 COPYRIGHT & LICENSE
-Copyright 2006-2008 Andy Lester, all rights reserved.
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=cut
+Copyright 2005-2009 Andy Lester.
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of either:
+
+=over 4
+
+=item * the GNU General Public License as published by the Free
+Software Foundation; either version 1, or (at your option) any later
+version, or
+
+=item * the Artistic License version 2.0.
+
+=back
+
1; # End of File::Next
Modified: trunk/libfile-next-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-next-perl/debian/changelog?rev=41080&op=diff
==============================================================================
--- trunk/libfile-next-perl/debian/changelog (original)
+++ trunk/libfile-next-perl/debian/changelog Sat Aug 1 12:44:03 2009
@@ -1,4 +1,4 @@
-libfile-next-perl (1.02-2) UNRELEASED; urgency=low
+libfile-next-perl (1.04-1) unstable; urgency=low
[ gregor herrmann ]
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
@@ -7,7 +7,18 @@
[ Nathan Handler ]
* debian/watch: Update to ignore development releases.
- -- gregor herrmann <gregoa at debian.org> Sun, 16 Nov 2008 20:42:49 +0100
+ [ Ansgar Burchardt ]
+ * New upstream release.
+ * debian/copyright: Update to current proposal.
+ * debian/copyright: Do not list Debian Perl Group as copyright holder.
+ Instead list all contributors (taken from debian/changelog).
+ * debian/copyright: Add X-Contact-BTS field.
+ * Bump Standards-Version to 3.8.2.
+ * debian/control: Do not capitalize short description.
+ * Add myself to Uploaders.
+ * Refresh rules for debhelper 7.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Sat, 01 Aug 2009 14:43:31 +0200
libfile-next-perl (1.02-1) unstable; urgency=low
Modified: trunk/libfile-next-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-next-perl/debian/compat?rev=41080&op=diff
==============================================================================
--- trunk/libfile-next-perl/debian/compat (original)
+++ trunk/libfile-next-perl/debian/compat Sat Aug 1 12:44:03 2009
@@ -1,1 +1,1 @@
-6
+7
Modified: trunk/libfile-next-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-next-perl/debian/control?rev=41080&op=diff
==============================================================================
--- trunk/libfile-next-perl/debian/control (original)
+++ trunk/libfile-next-perl/debian/control Sat Aug 1 12:44:03 2009
@@ -1,12 +1,13 @@
Source: libfile-next-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 6)
+Build-Depends: debhelper (>= 7)
Build-Depends-Indep: perl (>= 5.8.8-7), libtest-pod-perl,
libtest-pod-coverage-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Peter Makholm <peter at makholm.net>, Damyan Ivanov <dmn at debian.org>
-Standards-Version: 3.7.3
+Uploaders: Peter Makholm <peter at makholm.net>, Damyan Ivanov <dmn at debian.org>,
+ Ansgar Burchardt <ansgar at 43-1.org>
+Standards-Version: 3.8.2
Homepage: http://search.cpan.org/dist/File-Next/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libfile-next-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libfile-next-perl/
@@ -14,7 +15,7 @@
Package: libfile-next-perl
Architecture: all
Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends},
-Description: File-finding iterator
+Description: file-finding iterator
File::Next is an iterator-based module for finding files. It's
lightweight, has no dependencies, runs under taint mode, and puts your
program more directly in control of file selection.
Modified: trunk/libfile-next-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-next-perl/debian/copyright?rev=41080&op=diff
==============================================================================
--- trunk/libfile-next-perl/debian/copyright (original)
+++ trunk/libfile-next-perl/debian/copyright Sat Aug 1 12:44:03 2009
@@ -1,23 +1,31 @@
-This is the debian package for the File-Next module.
-It was created by Peter Makholm <peter at makholm.net> using dh-make-perl.
-
-It was downloaded from http://search.cpan.org/dist/File-Next/
+Format-Specification:
+ http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Upstream-Maintainer: Andy Lester
+Upstream-Source: http://search.cpan.org/dist/File-Next/
+Upstream-Name: File-Next
+X-Contact-BTS: http://github.com/petdance/file-next/issues
Files: *
-Author: Andy Lester <andy at petdance.com>
-Copyright: Copyright 2006-2008 Andy Lester, all rights reserved.
-License: GPL-1+|Artistic
- This program is free software; you can redistribute it and/or modify it
- under the same terms as Perl itself.
- .
- Perl is distributed under your choice of the GNU General Public License or the
- Artistic License. On Debian GNU/Linux systems, the complete text of the GNU
- General Public License can be found in `/usr/share/common-licenses/GPL' and
- the Artistic Licence in `/usr/share/common-licenses/Artistic'.
+Copyright: © 2005-2009, Andy Lester
+License: GPL-1+ | Artistic
Files: debian/*
-Copyright: © 2007, Peter Makholm <peter at makholm.net>
-Copyright: © 2008 Debian Perl Group <debian-perl at lists.debian.org>
-License: GPL-1+|Artistic
- The Debian packaging is licensed under the same terms as the software itself
- (see above).
+Copyright:
+ © 2007, Peter Makholm <peter at makholm.net>
+ © 2008, Damyan Ivanov <dmn at debian.org>
+ © 2009, Ansgar Burchardt <ansgar at 43-1.org>
+License: GPL-1+ | Artistic
+
+License: Artistic
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'
+
+License: GPL-1+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
Modified: trunk/libfile-next-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-next-perl/debian/rules?rev=41080&op=diff
==============================================================================
--- trunk/libfile-next-perl/debian/rules (original)
+++ trunk/libfile-next-perl/debian/rules Sat Aug 1 12:44:03 2009
@@ -1,75 +1,3 @@
#!/usr/bin/make -f
-# This debian/rules file is provided as a template for normal perl
-# packages. It was created by Marc Brockschmidt <marc at dch-faq.de> for
-# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may
-# be used freely wherever it is useful.
-
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-# If set to a true value then MakeMaker's prompt function will
-# always return the default without waiting for user input.
-export PERL_MM_USE_DEFAULT=1
-
-PACKAGE=$(shell dh_listpackages)
-
-ifndef PERL
-PERL = /usr/bin/perl
-endif
-
-TMP =$(CURDIR)/debian/$(PACKAGE)
-
-build: build-stamp
-build-stamp:
- dh_testdir
-
- # Add commands to compile the package here
- $(PERL) Makefile.PL INSTALLDIRS=vendor
- $(MAKE)
- $(MAKE) test
-
- touch $@
-
-clean:
- dh_testdir
- dh_testroot
-
- dh_clean build-stamp install-stamp
-
- # Add commands to clean up after the build process here
- [ ! -f Makefile ] || $(MAKE) realclean
-
-install: install-stamp
-install-stamp: build-stamp
- dh_testdir
- dh_testroot
- dh_clean -k
-
- # Add commands to install the package into $(TMP) here
- $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
-
- [ ! -d $(TMP)/usr/lib/perl5 ] || rmdir --ignore-fail-on-non-empty --parents --verbose $(TMP)/usr/lib/perl5
-
- touch $@
-
-binary-arch:
-# We have nothing to do here for an architecture-independent package
-
-binary-indep: build install
- dh_testdir
- dh_testroot
- dh_installdocs
- dh_installchangelogs Changes
- dh_perl
- dh_compress
- dh_fixperms
- dh_installdeb
- dh_gencontrol
- dh_md5sums
- dh_builddeb
-
-source diff:
- @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false
-
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary
+%:
+ dh $@
Modified: trunk/libfile-next-perl/t/dot.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-next-perl/t/dot.t?rev=41080&op=diff
==============================================================================
--- trunk/libfile-next-perl/t/dot.t (original)
+++ trunk/libfile-next-perl/t/dot.t Sat Aug 1 12:44:03 2009
@@ -26,6 +26,7 @@
dot.t
everything.t
follow.t
+ methods.t
parms.t
pod-coverage.t
pod.t
Modified: trunk/libfile-next-perl/t/everything.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-next-perl/t/everything.t?rev=41080&op=diff
==============================================================================
--- trunk/libfile-next-perl/t/everything.t (original)
+++ trunk/libfile-next-perl/t/everything.t Sat Aug 1 12:44:03 2009
@@ -26,6 +26,7 @@
t/dot.t
t/everything.t
t/follow.t
+ t/methods.t
t/parms.t
t/pod-coverage.t
t/pod.t
More information about the Pkg-perl-cvs-commits
mailing list