r65246 - in /trunk/libnet-tftp-perl: ChangeLog MANIFEST META.yml Makefile.PL SIGNATURE TFTP.pm debian/changelog t/01-get.t
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Thu Nov 25 12:40:33 UTC 2010
Author: carnil
Date: Thu Nov 25 12:40:24 2010
New Revision: 65246
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65246
Log:
New upstream release
Added:
trunk/libnet-tftp-perl/SIGNATURE
- copied unchanged from r65245, branches/upstream/libnet-tftp-perl/current/SIGNATURE
Modified:
trunk/libnet-tftp-perl/ChangeLog
trunk/libnet-tftp-perl/MANIFEST
trunk/libnet-tftp-perl/META.yml
trunk/libnet-tftp-perl/Makefile.PL
trunk/libnet-tftp-perl/TFTP.pm
trunk/libnet-tftp-perl/debian/changelog
trunk/libnet-tftp-perl/t/01-get.t
Modified: trunk/libnet-tftp-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-tftp-perl/ChangeLog?rev=65246&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/ChangeLog (original)
+++ trunk/libnet-tftp-perl/ChangeLog Thu Nov 25 12:40:24 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: trunk/libnet-tftp-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-tftp-perl/MANIFEST?rev=65246&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/MANIFEST (original)
+++ trunk/libnet-tftp-perl/MANIFEST Thu Nov 25 12:40:24 2010
@@ -9,3 +9,4 @@
t/02-new.t
t/files/directory/empty
t/files/source
+SIGNATURE Public-key signature (added by MakeMaker)
Modified: trunk/libnet-tftp-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-tftp-perl/META.yml?rev=65246&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/META.yml (original)
+++ trunk/libnet-tftp-perl/META.yml Thu Nov 25 12:40:24 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: trunk/libnet-tftp-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-tftp-perl/Makefile.PL?rev=65246&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/Makefile.PL (original)
+++ trunk/libnet-tftp-perl/Makefile.PL Thu Nov 25 12:40:24 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,
},
}
)
Modified: trunk/libnet-tftp-perl/TFTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-tftp-perl/TFTP.pm?rev=65246&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/TFTP.pm (original)
+++ trunk/libnet-tftp-perl/TFTP.pm Thu Nov 25 12:40:24 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: trunk/libnet-tftp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-tftp-perl/debian/changelog?rev=65246&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/debian/changelog (original)
+++ trunk/libnet-tftp-perl/debian/changelog Thu Nov 25 12:40:24 2010
@@ -1,5 +1,6 @@
-libnet-tftp-perl (0.18-2) UNRELEASED; urgency=low
+libnet-tftp-perl (0.19-1) UNRELEASED; urgency=low
+ * New upstream release
* Update my email address.
-- Salvatore Bonaccorso <carnil at debian.org> Sun, 10 Oct 2010 15:03:27 +0200
Modified: trunk/libnet-tftp-perl/t/01-get.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-tftp-perl/t/01-get.t?rev=65246&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/t/01-get.t (original)
+++ trunk/libnet-tftp-perl/t/01-get.t Thu Nov 25 12:40:24 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