r32326 - in /trunk/libfile-touch-perl: ._Makefile.PL ._test.pl Changes META.yml Touch.pm debian/changelog
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Wed Mar 25 01:17:21 UTC 2009
Author: ryan52-guest
Date: Wed Mar 25 01:17:17 2009
New Revision: 32326
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32326
Log:
New upstream release
Added:
trunk/libfile-touch-perl/._Makefile.PL
- copied unchanged from r32325, branches/upstream/libfile-touch-perl/current/._Makefile.PL
trunk/libfile-touch-perl/._test.pl
- copied unchanged from r32325, branches/upstream/libfile-touch-perl/current/._test.pl
Modified:
trunk/libfile-touch-perl/Changes
trunk/libfile-touch-perl/META.yml
trunk/libfile-touch-perl/Touch.pm
trunk/libfile-touch-perl/debian/changelog
Modified: trunk/libfile-touch-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-touch-perl/Changes?rev=32326&op=diff
==============================================================================
--- trunk/libfile-touch-perl/Changes (original)
+++ trunk/libfile-touch-perl/Changes Wed Mar 25 01:17:17 2009
@@ -1,5 +1,9 @@
Revision history for Perl extension File::Touch.
+0.06 Tue Mar 24 11:22:13 2009
+ - now works on systems lacking O_NONBLOCK
+ (thanks Ronald Fischer)
+ - BUG: no longer works adds O_NOCTTY with terminal devices
0.02 Thu Jun 1 08:48:56 2007
- fixed bareword filehandle (thanks Tolga Ceylan)
- I changed my name
Modified: trunk/libfile-touch-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-touch-perl/META.yml?rev=32326&op=diff
==============================================================================
--- trunk/libfile-touch-perl/META.yml (original)
+++ trunk/libfile-touch-perl/META.yml Wed Mar 25 01:17:17 2009
@@ -1,11 +1,10 @@
---- #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
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: File-Touch
+version: 0.06
+version_from: Touch.pm
+installdirs: site
+requires:
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30
Modified: trunk/libfile-touch-perl/Touch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-touch-perl/Touch.pm?rev=32326&op=diff
==============================================================================
--- trunk/libfile-touch-perl/Touch.pm (original)
+++ trunk/libfile-touch-perl/Touch.pm Wed Mar 25 01:17:17 2009
@@ -3,13 +3,39 @@
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(touch);
-$VERSION = "0.02";
+$VERSION = "0.06";
use warnings;
use strict;
use Carp;
use IO::File;
use File::stat;
+use Fcntl;
+
+my $SYSOPEN_MODE = O_WRONLY|O_CREAT;
+eval {
+ $SYSOPEN_MODE |= &{ $Fcntl::{'O_NONBLOCK'} };
+};
+if($@) {
+ if($@ =~ /Your vendor has not defined/) {
+ # OK, we don't have O_NONBLOCK:
+ # probably running on Windows.
+ } else {
+ die "$@"; # Rethrow exception, must be something different
+ }
+}
+
+
+
+
+
+foreach my $Fcntl_sym (keys %Fcntl::){
+ if($Fcntl_sym eq 'O_NONBLOCK'){
+ $SYSOPEN_MODE |= &{ $Fcntl::{'O_NONBLOCK'} };
+ last;
+ }
+}
+
sub new
{
@@ -89,7 +115,7 @@
$mtime = $sb->mtime;
} else {
unless ($self->{_no_create}){
- sysopen my $fh,$file,O_WRONLY|O_CREAT|O_NONBLOCK|O_NOCTTY or croak("Can't create $file : $!");
+ sysopen my $fh,$file,$SYSOPEN_MODE or croak("Can't create $file : $!");
close $fh or croak("Can't close $file : $!");
$atime = $time;
$mtime = $time;
@@ -199,7 +225,7 @@
=head1 COPYRIGHT
-Copyright (c) 2001,2007 Nigel Wetters Gourlay. All Rights Reserved.
+Copyright (c) 2001,2007,2009 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.
Modified: trunk/libfile-touch-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-touch-perl/debian/changelog?rev=32326&op=diff
==============================================================================
--- trunk/libfile-touch-perl/debian/changelog (original)
+++ trunk/libfile-touch-perl/debian/changelog Wed Mar 25 01:17:17 2009
@@ -1,10 +1,14 @@
-libfile-touch-perl (0.02-3) UNRELEASED; urgency=low
+libfile-touch-perl (0.06-1) UNRELEASED; urgency=low
+ [ gregor herrmann ]
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
(source stanza).
* debian/control: Added: ${misc:Depends} to Depends: field.
- -- gregor herrmann <gregoa at debian.org> Sun, 16 Nov 2008 20:42:57 +0100
+ [ Ryan Niebur ]
+ * New upstream release
+
+ -- Ryan Niebur <ryanryan52 at gmail.com> Tue, 24 Mar 2009 18:17:13 -0700
libfile-touch-perl (0.02-2) unstable; urgency=low
More information about the Pkg-perl-cvs-commits
mailing list