r25645 - in /branches/upstream/libfilehandle-fmode-perl/current: CHANGES Fmode.pm Fmode.xs MANIFEST Makefile.PL t/pod.t

[yvesago-guest at users.alioth.debian.org]

Author: yvesago-guest
Date: Fri Sep 26 15:09:22 2008
New Revision: 25645

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25645
Log:
[svn-upgrade] Integrating new upstream version, libfilehandle-fmode-perl (0.11)

Added:
    branches/upstream/libfilehandle-fmode-perl/current/t/pod.t
Modified:
    branches/upstream/libfilehandle-fmode-perl/current/CHANGES
    branches/upstream/libfilehandle-fmode-perl/current/Fmode.pm
    branches/upstream/libfilehandle-fmode-perl/current/Fmode.xs
    branches/upstream/libfilehandle-fmode-perl/current/MANIFEST
    branches/upstream/libfilehandle-fmode-perl/current/Makefile.PL

Modified: branches/upstream/libfilehandle-fmode-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfilehandle-fmode-perl/current/CHANGES?rev=25645&op=diff
==============================================================================
--- branches/upstream/libfilehandle-fmode-perl/current/CHANGES (original)
+++ branches/upstream/libfilehandle-fmode-perl/current/CHANGES Fri Sep 26 15:09:22 2008
@@ -1,3 +1,5 @@
+0.11 - Add copyright notice to the LICENSE section of the pod.
+
 0.10 - Add is_FH() - which is just a (more intuitively named) alias for
        is_arg_ok().
        Various minor adjustments to enable trouble-free building on pre-5.6.

Modified: branches/upstream/libfilehandle-fmode-perl/current/Fmode.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfilehandle-fmode-perl/current/Fmode.pm?rev=25645&op=diff
==============================================================================
--- branches/upstream/libfilehandle-fmode-perl/current/Fmode.pm (original)
+++ branches/upstream/libfilehandle-fmode-perl/current/Fmode.pm Fri Sep 26 15:09:22 2008
@@ -7,7 +7,7 @@
 
 *is_FH = \&is_arg_ok;
 
-$FileHandle::Fmode::VERSION = 0.10;
+$FileHandle::Fmode::VERSION = 0.11;
 
 @FileHandle::Fmode::ISA = qw(Exporter DynaLoader);
 
@@ -145,6 +145,12 @@
  check by passing the argument to is_FH(). Or you could wrap the
  function call in an eval{} block. 
 
+ Note that it may be possible that a filehandle opened for writing may
+ become unwritable - if (eg) the disk becomes full. I don't know how 
+ the below functions would be affected by such an event. I suspect
+ that they would be unaware of the change ... but I haven't actually
+ checked.
+
  $bool = is_R($fh);
  $bool = is_R(\*FH);
   Returns true if the filehandle is readable.
@@ -209,6 +215,7 @@
 
  This program is free software; you may redistribute it and/or 
  modify it under the same terms as Perl itself.
+ Copyright 2006-2008, Sisyphus
 
 =head1 AUTHOR
 

Modified: branches/upstream/libfilehandle-fmode-perl/current/Fmode.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfilehandle-fmode-perl/current/Fmode.xs?rev=25645&op=diff
==============================================================================
--- branches/upstream/libfilehandle-fmode-perl/current/Fmode.xs (original)
+++ branches/upstream/libfilehandle-fmode-perl/current/Fmode.xs Fri Sep 26 15:09:22 2008
@@ -41,7 +41,7 @@
      io = sv_2io(handle);
      f  = IoIFP(io);
      if(PerlIOValid(f)){
-       const IV flags = PerlIOBase(f)->flags;
+       flags = PerlIOBase(f)->flags;
        if(flags & PERLIO_F_CANREAD) return newSVuv(1);
        return newSVuv(0);
      }

Modified: branches/upstream/libfilehandle-fmode-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfilehandle-fmode-perl/current/MANIFEST?rev=25645&op=diff
==============================================================================
--- branches/upstream/libfilehandle-fmode-perl/current/MANIFEST (original)
+++ branches/upstream/libfilehandle-fmode-perl/current/MANIFEST Fri Sep 26 15:09:22 2008
@@ -5,4 +5,5 @@
 Fmode.pm
 Fmode.xs
 t/basic.t
-t/binmode.t
+t/binmode.t
+t/pod.t

Modified: branches/upstream/libfilehandle-fmode-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfilehandle-fmode-perl/current/Makefile.PL?rev=25645&op=diff
==============================================================================
--- branches/upstream/libfilehandle-fmode-perl/current/Makefile.PL (original)
+++ branches/upstream/libfilehandle-fmode-perl/current/Makefile.PL Fri Sep 26 15:09:22 2008
@@ -1,12 +1,12 @@
 use ExtUtils::MakeMaker;
 
-my %options = %{
-{
+my %options = 
+(
   NAME     => 'FileHandle::Fmode',
   VERSION_FROM => 'Fmode.pm',
   DEFINE   => $] < 5.008 ? $] < 5.006001 ? '-DOLDPERL' : '-DPERL561_OR_LATER' : '-DPERL580_OR_LATER -DPERL561_OR_LATER',
   clean   => { FILES => 'temp.txt temp2.txt' },
-}
-};
+);
 
 WriteMakefile(%options);
+

Added: branches/upstream/libfilehandle-fmode-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfilehandle-fmode-perl/current/t/pod.t?rev=25645&op=file
==============================================================================
--- branches/upstream/libfilehandle-fmode-perl/current/t/pod.t (added)
+++ branches/upstream/libfilehandle-fmode-perl/current/t/pod.t Fri Sep 26 15:09:22 2008
@@ -1,0 +1,10 @@
+eval "use Test::Pod 1.00";
+
+if($@) {
+  print "1..1\n";
+  print "ok 1 - skipped, no sufficiently recent version of Test::Pod installed \n";
+}
+
+else {
+     Test::Pod::all_pod_files_ok();
+}