r65244 - in /branches/upstream/libnet-tftp-perl/current: ChangeLog MANIFEST META.yml Makefile.PL SIGNATURE TFTP.pm t/01-get.t
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Thu Nov 25 12:31:40 UTC 2010
Author: carnil
Date: Thu Nov 25 12:31:13 2010
New Revision: 65244
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65244
Log:
[svn-upgrade] new version libnet-tftp-perl (0.19)
Added:
branches/upstream/libnet-tftp-perl/current/SIGNATURE
Modified:
branches/upstream/libnet-tftp-perl/current/ChangeLog
branches/upstream/libnet-tftp-perl/current/MANIFEST
branches/upstream/libnet-tftp-perl/current/META.yml
branches/upstream/libnet-tftp-perl/current/Makefile.PL
branches/upstream/libnet-tftp-perl/current/TFTP.pm
branches/upstream/libnet-tftp-perl/current/t/01-get.t
Modified: branches/upstream/libnet-tftp-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-tftp-perl/current/ChangeLog?rev=65244&op=diff
==============================================================================
--- branches/upstream/libnet-tftp-perl/current/ChangeLog (original)
+++ branches/upstream/libnet-tftp-perl/current/ChangeLog Thu Nov 25 12:31:13 2010
@@ -1,3 +1,19 @@
+0.19 -- Wed Nov 24 18:22:33 CST 2010
+
+ * Get rid of unlink [Maik Hentsche]
+ * Fixed build_requires [Maik Hentsche]
+ * fix BUILD_REQUIRES to more classical PREREQ_PM [Steffen Schwigon]
+
+0.18 -- Mon May 31 10:38:13 CDT 2010
+
+ * Added support for IPv6 (patch from John Jason Brzozowski)
+ * Added .gitignore file [Maik Hentsche]
+ * added unit tests [Maik Hentsche]
+ * added directory for unit test [Maik Hentsche]
+ * handle unlink error [Maik Hentsche]
+ * added unit test for missing host [Maik Hentsche]
+ * Fix warning for new() without host argument [Maik Hentsche]
+
Release 0.17 -- Wed Jul 18 06:30:05 CDT 2007
Enhancements
Modified: branches/upstream/libnet-tftp-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-tftp-perl/current/MANIFEST?rev=65244&op=diff
==============================================================================
--- branches/upstream/libnet-tftp-perl/current/MANIFEST (original)
+++ branches/upstream/libnet-tftp-perl/current/MANIFEST Thu Nov 25 12:31:13 2010
@@ -9,3 +9,4 @@
t/02-new.t
t/files/directory/empty
t/files/source
+SIGNATURE Public-key signature (added by MakeMaker)
Modified: branches/upstream/libnet-tftp-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-tftp-perl/current/META.yml?rev=65244&op=diff
==============================================================================
--- branches/upstream/libnet-tftp-perl/current/META.yml (original)
+++ branches/upstream/libnet-tftp-perl/current/META.yml Thu Nov 25 12:31:13 2010
@@ -1,17 +1,16 @@
--- #YAML:1.0
name: Net-TFTP
-version: 0.18
+version: 0.19
abstract: ~
author: []
license: perl
distribution_type: module
configure_requires:
ExtUtils::MakeMaker: 0
-build_requires:
+requires:
Test::MockModule: 0
Test::More: 0.8701
Test::Warn: 0
-requires: {}
resources:
repository: http://github.com/gbarr/perl-net-tftp
no_index:
Modified: branches/upstream/libnet-tftp-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-tftp-perl/current/Makefile.PL?rev=65244&op=diff
==============================================================================
--- branches/upstream/libnet-tftp-perl/current/Makefile.PL (original)
+++ branches/upstream/libnet-tftp-perl/current/Makefile.PL Thu Nov 25 12:31:13 2010
@@ -7,16 +7,16 @@
WriteMakefile(
VERSION_FROM => 'TFTP.pm',
NAME => 'Net::TFTP',
+ PREREQ_PM => {
+ 'Test::More' => 0.8701,
+ 'Test::MockModule' => 0,
+ 'Test::Warn' => 0,
+ },
(eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()),
( eval { ExtUtils::MakeMaker->VERSION(6.46) } ? (
META_MERGE => {
resources => { ##
repository => 'http://github.com/gbarr/perl-net-tftp',
- },
- build_requires => {
- 'Test::More' => 0.8701,
- 'Test::MockModule' => 0,
- 'Test::Warn' => 0,
},
}
)
Added: branches/upstream/libnet-tftp-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-tftp-perl/current/SIGNATURE?rev=65244&op=file
==============================================================================
--- branches/upstream/libnet-tftp-perl/current/SIGNATURE (added)
+++ branches/upstream/libnet-tftp-perl/current/SIGNATURE Thu Nov 25 12:31:13 2010
@@ -1,0 +1,34 @@
+This file contains message digests of all files listed in MANIFEST,
+signed via the Module::Signature module, version 0.64.
+
+To verify the content in this distribution, first make sure you have
+Module::Signature installed, then type:
+
+ % cpansign -v
+
+It will check each file's integrity, as well as the signature's
+validity. If "==> Signature verified OK! <==" is not displayed,
+the distribution may already have been compromised, and you should
+not run its Makefile.PL or Build.PL.
+
+-----BEGIN PGP SIGNED MESSAGE-----
+Hash: SHA1
+
+SHA1 4f44ae237cb037daed9c72574eca4d5d2e418797 ChangeLog
+SHA1 cf14240dfe26c79eaf5f454c1943ddfec49fbe73 MANIFEST
+SHA1 c5446a747e4457b2b4e5e6080b566ad46c1faaea META.yml
+SHA1 4bc74fcc6c2129d01b26a89b0fda8b4dd51fb428 Makefile.PL
+SHA1 9044bc5ec03ee5bee19c8b9c5c68a6a05f6fcb83 README
+SHA1 4bcd1e87432f7c79f978234b29dd130957c4a69a TFTP.pm
+SHA1 bf8966b89de40e8c1200ea7a12a831d1a77f78bf t/00-load.t
+SHA1 b62e4dd85e37ad5293d3cbc58930be6ceb5eaba4 t/01-get.t
+SHA1 10b3eb59c4a04696f21a30a85701b18227431e1b t/02-new.t
+SHA1 da39a3ee5e6b4b0d3255bfef95601890afd80709 t/files/directory/empty
+SHA1 e04ff2983499c33b1597bd03d23b30ec20d78a61 t/files/source
+-----BEGIN PGP SIGNATURE-----
+Version: GnuPG v1.4.10 (Darwin)
+
+iEYEARECAAYFAkztrYQACgkQR0BL4gbYw3SIxQCePm0bSuLmjEN9dB9z4JizfjZ5
+RNgAoIT1jl9Jh2ob8b7qFJyryzDJl4SY
+=luE7
+-----END PGP SIGNATURE-----
Modified: branches/upstream/libnet-tftp-perl/current/TFTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-tftp-perl/current/TFTP.pm?rev=65244&op=diff
==============================================================================
--- branches/upstream/libnet-tftp-perl/current/TFTP.pm (original)
+++ branches/upstream/libnet-tftp-perl/current/TFTP.pm Thu Nov 25 12:31:13 2010
@@ -10,7 +10,7 @@
use vars qw($VERSION);
use IO::File;
-$VERSION = "0.18";
+$VERSION = "0.19";
sub RRQ () { 01 } # read request
sub WRQ () { 02 } # write request
@@ -129,12 +129,11 @@
my $file = $local;
unless(ref($local)) {
- my $retval = unlink($file);
- if ($retval < 1) {
- $self->{'error'} = "Can not unlink $file: $!";
+ $local = IO::File->new($file,O_WRONLY|O_TRUNC|O_CREAT);
+ unless ($local) {
+ $self->{'error'} = "Can not open $file: $!";
return undef;
}
- $local = IO::File->new($file,O_WRONLY|O_TRUNC|O_CREAT);
}
binmode $local if $self->{'Mode'} eq 'octet';
Modified: branches/upstream/libnet-tftp-perl/current/t/01-get.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-tftp-perl/current/t/01-get.t?rev=65244&op=diff
==============================================================================
--- branches/upstream/libnet-tftp-perl/current/t/01-get.t (original)
+++ branches/upstream/libnet-tftp-perl/current/t/01-get.t Thu Nov 25 12:31:13 2010
@@ -16,6 +16,6 @@
$tftp = Net::TFTP->new("some.host.name", BlockSize => 1024);
my $retval = $tftp->get('somefile','t/files/directory');
is($retval, undef, 'Error handled, no die');
-like($tftp->{error}, qr(Can not unlink t/files/directory), 'Error message');
+like($tftp->{error}, qr(Can not open t/files/directory), 'Error message');
done_testing;
More information about the Pkg-perl-cvs-commits
mailing list