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