r58965 - in /trunk/libnet-tftp-perl: MANIFEST META.yml Makefile.PL TFTP.pm debian/changelog debian/control t/

carnil-guest at users.alioth.debian.org carnil-guest at users.alioth.debian.org
Sun Jun 6 13:27:34 UTC 2010


Author: carnil-guest
Date: Sun Jun  6 13:27:20 2010
New Revision: 58965

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58965
Log:
* New upstream release.
* Add myself to Uploaders.

Added:
    trunk/libnet-tftp-perl/t/
      - copied from r58964, branches/upstream/libnet-tftp-perl/current/t/
Modified:
    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/debian/control

Modified: trunk/libnet-tftp-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-tftp-perl/MANIFEST?rev=58965&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/MANIFEST (original)
+++ trunk/libnet-tftp-perl/MANIFEST Sun Jun  6 13:27:20 2010
@@ -4,3 +4,8 @@
 README
 TFTP.pm
 META.yml                                 Module meta-data (added by MakeMaker)
+t/00-load.t
+t/01-get.t
+t/02-new.t
+t/files/directory/empty
+t/files/source

Modified: trunk/libnet-tftp-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-tftp-perl/META.yml?rev=58965&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/META.yml (original)
+++ trunk/libnet-tftp-perl/META.yml Sun Jun  6 13:27:20 2010
@@ -1,10 +1,24 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         Net-TFTP
-version:      0.17
-version_from: TFTP.pm
-installdirs:  site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+--- #YAML:1.0
+name:               Net-TFTP
+version:            0.18
+abstract:           ~
+author:  []
+license:            perl
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    Test::MockModule:  0
+    Test::More:        0.8701
+    Test::Warn:        0
+requires:  {}
+resources:
+    repository:  http://github.com/gbarr/perl-net-tftp
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.48
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: trunk/libnet-tftp-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-tftp-perl/Makefile.PL?rev=58965&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/Makefile.PL (original)
+++ trunk/libnet-tftp-perl/Makefile.PL Sun Jun  6 13:27:20 2010
@@ -7,6 +7,21 @@
 WriteMakefile(
   VERSION_FROM  => 'TFTP.pm',
   NAME          => 'Net::TFTP',
+  (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=58965&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/TFTP.pm (original)
+++ trunk/libnet-tftp-perl/TFTP.pm Sun Jun  6 13:27:20 2010
@@ -10,7 +10,7 @@
 use vars qw($VERSION);
 use IO::File;
 
-$VERSION = "0.17"; # $Id: TFTP.pm 12 2007-07-18 11:32:42Z gbarr $
+$VERSION = "0.18";
 
 sub RRQ	  () { 01 } # read request
 sub WRQ	  () { 02 } # write request
@@ -129,7 +129,11 @@
 
     my $file = $local;
     unless(ref($local)) {
-	unlink($file);
+	my $retval = unlink($file);
+        if ($retval < 1) {
+                $self->{'error'} = "Can not unlink $file: $!";
+                return undef;
+        }
 	$local = IO::File->new($file,O_WRONLY|O_TRUNC|O_CREAT);
     }
 
@@ -222,6 +226,11 @@
     $opts->{'ascii'} = lc($opts->{'Mode'}) eq "netascii";
 
     my $host = $opts->{'Host'};
+    do {
+            $tftp->{'error'} = "No hostname given";
+            return undef;
+    } unless defined($host);
+
     ## jjmb - had to make an adjustment here the logic used originally does not work well
     ##        with IPv6.
     my $port = undef;

Modified: trunk/libnet-tftp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-tftp-perl/debian/changelog?rev=58965&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/debian/changelog (original)
+++ trunk/libnet-tftp-perl/debian/changelog Sun Jun  6 13:27:20 2010
@@ -1,4 +1,4 @@
-libnet-tftp-perl (0.17-3) UNRELEASED; urgency=low
+libnet-tftp-perl (0.18-1) UNRELEASED; urgency=low
 
   [ Joachim Breitner ]
   * Removed myself from uploaders.
@@ -7,7 +7,11 @@
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
     (source stanza).
 
- -- Joachim Breitner <nomeata at debian.org>  Wed, 13 Feb 2008 23:28:13 +0000
+  [ Salvatore Bonaccorso ]
+  * New upstream release.
+  * Add myself to Uploaders.
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>  Sun, 06 Jun 2010 15:27:12 +0200
 
 libnet-tftp-perl (0.17-2) unstable; urgency=low
 

Modified: trunk/libnet-tftp-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-tftp-perl/debian/control?rev=58965&op=diff
==============================================================================
--- trunk/libnet-tftp-perl/debian/control (original)
+++ trunk/libnet-tftp-perl/debian/control Sun Jun  6 13:27:20 2010
@@ -2,7 +2,7 @@
 Section: perl
 Priority: optional
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Benoit Mortier <benoit.mortier at opensides.be>, Carlo Segre <segre at debian.org>
+Uploaders: Benoit Mortier <benoit.mortier at opensides.be>, Carlo Segre <segre at debian.org>, Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
 Build-Depends: debhelper (>= 6)
 Build-Depends-Indep: perl (>= 5.8)
 Standards-Version: 3.8.3




More information about the Pkg-perl-cvs-commits mailing list