r5743 - in /packages/libfile-touch-perl/branches/upstream/current: Changes MANIFEST META.yml Touch.pm

[eloy at users.alioth.debian.org]

Author: eloy
Date: Wed Jul 11 15:23:48 2007
New Revision: 5743

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5743
Log:
[svn-upgrade] Integrating new upstream version, libfile-touch-perl (0.02)

Added:
    packages/libfile-touch-perl/branches/upstream/current/META.yml
Modified:
    packages/libfile-touch-perl/branches/upstream/current/Changes
    packages/libfile-touch-perl/branches/upstream/current/MANIFEST
    packages/libfile-touch-perl/branches/upstream/current/Touch.pm

Modified: packages/libfile-touch-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-touch-perl/branches/upstream/current/Changes?rev=5743&op=diff
==============================================================================
--- packages/libfile-touch-perl/branches/upstream/current/Changes (original)
+++ packages/libfile-touch-perl/branches/upstream/current/Changes Wed Jul 11 15:23:48 2007
@@ -1,5 +1,8 @@
 Revision history for Perl extension File::Touch.
 
+0.02  Thu Jun  1 08:48:56 2007
+	- fixed bareword filehandle (thanks Tolga Ceylan)
+	- I changed my name
 0.01  Thu Jul  5 09:35:24 2001
 	- original version; created by Nigel Wetters
 

Modified: packages/libfile-touch-perl/branches/upstream/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-touch-perl/branches/upstream/current/MANIFEST?rev=5743&op=diff
==============================================================================
--- packages/libfile-touch-perl/branches/upstream/current/MANIFEST (original)
+++ packages/libfile-touch-perl/branches/upstream/current/MANIFEST Wed Jul 11 15:23:48 2007
@@ -3,3 +3,4 @@
 MANIFEST
 test.pl
 Touch.pm
+META.yml                                 Module meta-data (added by MakeMaker)

Added: packages/libfile-touch-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-touch-perl/branches/upstream/current/META.yml?rev=5743&op=file
==============================================================================
--- packages/libfile-touch-perl/branches/upstream/current/META.yml (added)
+++ packages/libfile-touch-perl/branches/upstream/current/META.yml Wed Jul 11 15:23:48 2007
@@ -1,0 +1,11 @@
+--- #YAML:1.0
+name:                File-Touch
+version:             0.02
+abstract:            ~
+license:             ~
+generated_by:        ExtUtils::MakeMaker version 6.32
+distribution_type:   module
+requires:     
+meta-spec:
+    url:     http://module-build.sourceforge.net/META-spec-v1.2.html
+    version: 1.2

Modified: packages/libfile-touch-perl/branches/upstream/current/Touch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-touch-perl/branches/upstream/current/Touch.pm?rev=5743&op=diff
==============================================================================
--- packages/libfile-touch-perl/branches/upstream/current/Touch.pm (original)
+++ packages/libfile-touch-perl/branches/upstream/current/Touch.pm Wed Jul 11 15:23:48 2007
@@ -3,8 +3,8 @@
 require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(touch);
-$VERSION = "0.01";
-
+$VERSION = "0.02";
+use warnings;
 use strict;
 
 use Carp;
@@ -89,8 +89,8 @@
 	    $mtime = $sb->mtime;
 	} else {
 	    unless ($self->{_no_create}){
-		sysopen(FH,$file,O_WRONLY|O_CREAT|O_NONBLOCK|O_NOCTTY) or croak("Can't create $file : $!");
-		close FH or croak("Can't close $file : $!");
+		sysopen my $fh,$file,O_WRONLY|O_CREAT|O_NONBLOCK|O_NOCTTY or croak("Can't create $file : $!");
+		close $fh or croak("Can't close $file : $!");
 		$atime = $time;
 		$mtime = $time;
 	    }
@@ -195,11 +195,11 @@
 
 =head1 AUTHOR
 
-Nigel Wetters (nigel at wetters.net)
+Nigel Wetters Gourlay (nwetters at cpan.org)
 
 =head1 COPYRIGHT
 
-Copyright (c) 2001, Nigel Wetters. All Rights Reserved.
+Copyright (c) 2001,2007 Nigel Wetters Gourlay. All Rights Reserved.
 This module is free software. It may be used, redistributed
 and/or modified under the same terms as Perl itself.