r26971 - in /branches/upstream/libfile-sharedir-par-perl/current: Changes MANIFEST META.yml README lib/File/ShareDir/PAR.pm

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Mon Nov 17 18:17:22 UTC 2008


Author: gregoa
Date: Mon Nov 17 18:17:20 2008
New Revision: 26971

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

Added:
    branches/upstream/libfile-sharedir-par-perl/current/README
Modified:
    branches/upstream/libfile-sharedir-par-perl/current/Changes
    branches/upstream/libfile-sharedir-par-perl/current/MANIFEST
    branches/upstream/libfile-sharedir-par-perl/current/META.yml
    branches/upstream/libfile-sharedir-par-perl/current/lib/File/ShareDir/PAR.pm

Modified: branches/upstream/libfile-sharedir-par-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-sharedir-par-perl/current/Changes?rev=26971&op=diff
==============================================================================
--- branches/upstream/libfile-sharedir-par-perl/current/Changes (original)
+++ branches/upstream/libfile-sharedir-par-perl/current/Changes Mon Nov 17 18:17:20 2008
@@ -1,4 +1,7 @@
 Revision history for Perl extension File::ShareDir::PAR
+
+0.03 Sat 15 Nov 2008
+  - Fix issue on Win32 wrt path separators.
 
 0.02 Wed 15 Oct 2008
   - Fix 03 tests with par: previously, got spurious fails from

Modified: branches/upstream/libfile-sharedir-par-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-sharedir-par-perl/current/MANIFEST?rev=26971&op=diff
==============================================================================
--- branches/upstream/libfile-sharedir-par-perl/current/MANIFEST (original)
+++ branches/upstream/libfile-sharedir-par-perl/current/MANIFEST Mon Nov 17 18:17:20 2008
@@ -14,6 +14,7 @@
 Makefile.PL
 MANIFEST			This list of files
 META.yml
+README
 share/sample.txt
 share/subdir/sample.txt
 t/01_compile.t

Modified: branches/upstream/libfile-sharedir-par-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-sharedir-par-perl/current/META.yml?rev=26971&op=diff
==============================================================================
--- branches/upstream/libfile-sharedir-par-perl/current/META.yml (original)
+++ branches/upstream/libfile-sharedir-par-perl/current/META.yml Mon Nov 17 18:17:20 2008
@@ -30,4 +30,4 @@
   perl: 5.005
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.02
+version: 0.03

Added: branches/upstream/libfile-sharedir-par-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-sharedir-par-perl/current/README?rev=26971&op=file
==============================================================================
--- branches/upstream/libfile-sharedir-par-perl/current/README (added)
+++ branches/upstream/libfile-sharedir-par-perl/current/README Mon Nov 17 18:17:20 2008
@@ -1,0 +1,84 @@
+NAME
+    File::ShareDir::PAR - File::ShareDir with PAR support
+
+SYNOPSIS
+      use File::SharedDir::PAR ':ALL';
+      # exact same interface as the normal File::ShareDir:
+  
+      # Where are distribution-level shared data files kept
+      $dir = dist_dir('File-ShareDir');
+  
+      # Where are module-level shared data files kept
+      $dir = module_dir('File::ShareDir');
+  
+      # Find a specific file in our dist/module shared dir
+      $file = dist_file(  'File-ShareDir',  'file/name.txt');
+      $file = module_file('File::ShareDir', 'file/name.txt');
+  
+      # Like module_file, but search up the inheritance tree
+      $file = class_file( 'Foo::Bar', 'file/name.txt' );
+
+WARNING
+    This module contains *highly experimental* code. If you want to load
+    modules from ".par" files using PAR and then access their shared
+    directory using File::ShareDir, you probably have no choice but to use
+    it. But beware, here be dragons.
+
+DESCRIPTION
+    "File::ShareDir::PAR" provides the same functionality as File::ShareDir
+    but tries hard to be compatible with PAR packaged applications.
+
+    The problem is, that the concept of having a distribution or module
+    specific *share* directory becomes a little hazy when you're loading
+    everything from a single file. PAR uses an @INC hook to intercept any
+    attempt to load a module. File::ShareDir uses the directory structure
+    that is typically found in the directories that are listed in @INC for
+    storing the shared data. In a "PAR" enviroment, this is not necessarily
+    possible.
+
+    When you call one of the functions that this module provides, it will
+    take care to search in any of the currently loaded ".par" files before
+    scanning @INC. This is the same order of preference you get for loading
+    modules when PAR is in effect. If the path or file you are asking for is
+    found in one of the loaded ".par" files, that containing ".par" file is
+    extracted and the path returned will point to the extracted copy on
+    disk.
+
+    Depending on how you're using PAR, the files that are extracted this way
+    are either cleaned up after program termination or cached for further
+    executions. Either way, you're safe if you use the shared data as
+    read-only data. If you write to it, your changes may be lost after the
+    program ends.
+
+    For any further usage information, including the list of exportable
+    functions, please refer to the documentation of File::ShareDir.
+
+SUPPORT
+    Bugs should always be submitted via the CPAN bug tracker
+
+    <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=File-ShareDir-PAR>
+
+    For other issues, contact the PAR mailing list: <par at perl.org>
+
+AUTHOR
+    Steffen Mueller <smueller at cpan.org>
+
+    The code was adapted from Adam Kennedy's work on "File::ShareDir"
+
+SEE ALSO
+    File::ShareDir, File::HomeDir, Module::Install, Module::Install::Share
+
+COPYRIGHT AND LICENSE
+    Copyright (c) 2008 Steffen Mueller This program is free software; you
+    can redistribute it and/or modify it under the same terms as Perl
+    itself.
+
+    The portions of code that were copied from "File::ShareDir" are:
+
+    Copyright (c) 2005, 2006 Adam Kennedy. This program is free software;
+    you can redistribute it and/or modify it under the same terms as Perl
+    itself.
+
+    The full text of the license can be found in the LICENSE file included
+    with this module.
+

Modified: branches/upstream/libfile-sharedir-par-perl/current/lib/File/ShareDir/PAR.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-sharedir-par-perl/current/lib/File/ShareDir/PAR.pm?rev=26971&op=diff
==============================================================================
--- branches/upstream/libfile-sharedir-par-perl/current/lib/File/ShareDir/PAR.pm (original)
+++ branches/upstream/libfile-sharedir-par-perl/current/lib/File/ShareDir/PAR.pm Mon Nov 17 18:17:20 2008
@@ -80,7 +80,7 @@
 
 use vars qw{$VERSION @EXPORT_OK %EXPORT_TAGS %CLEANUP_DIRS};
 BEGIN {
-  $VERSION     = '0.02';
+  $VERSION     = '0.03';
   @EXPORT_OK   = qw{dist_dir dist_file module_dir module_file class_file};
   %EXPORT_TAGS = (
     ALL => [ @EXPORT_OK ],
@@ -113,13 +113,14 @@
 
     $file =~ s/\/+$//;
 
-    my @files = (
+    my @files = map {s/\\/\//g; $_} (
       $file, "lib/$file", "arch/$file",
       "$arch/$file", "$ver/$file", "$ver/$arch/$file"
     );
     @files = map {($_, "$_/")} @files;
     #use Data::Dumper; warn Dumper \@files;
     foreach my $zip (@PAR::LibCache) {
+    my @m = $zip->memberNames();
         my $member = PAR::_first_member($zip, @files) or next;
         return($member, $zip);
     }




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