r66568 - in /trunk/libload-perl: CHANGELOG META.yml README VERSION debian/changelog lib/load.pm

Tue Dec 28 17:46:27 UTC 2010

Author: jawnsy-guest
Date: Tue Dec 28 17:46:17 2010
New Revision: 66568

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=66568
Log:
This release fixes a problem that only happens with Perl 5.13.X;
this version is not in the archive yet.
WAITS-FOR: perl 5.13.0
* New upstream release

Modified:
    trunk/libload-perl/CHANGELOG
    trunk/libload-perl/META.yml
    trunk/libload-perl/README
    trunk/libload-perl/VERSION
    trunk/libload-perl/debian/changelog
    trunk/libload-perl/lib/load.pm

Modified: trunk/libload-perl/CHANGELOG
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libload-perl/CHANGELOG?rev=66568&op=diff
==============================================================================

--- trunk/libload-perl/CHANGELOG (original)
+++ trunk/libload-perl/CHANGELOG Tue Dec 28 17:46:17 2010
@@ -1,3 +1,7 @@
+0.20	20 September 2010
+	Fixed problem that started to manifest itself with a slightly different
+	handling of localized $@, starting in perl 5.13.x.
+
 0.19	24 April 2007
 	Fixed problem in test-suite that was long overseen because it would
 	work ok if load.pm was already installed (which it was on my dev

Modified: trunk/libload-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libload-perl/META.yml?rev=66568&op=diff
==============================================================================
--- trunk/libload-perl/META.yml (original)
+++ trunk/libload-perl/META.yml Tue Dec 28 17:46:17 2010
@@ -1,10 +1,21 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         load
-version:      0.19
-version_from: lib/load.pm
-installdirs:  site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+--- #YAML:1.0
+name:               load
+version:            0.20
+abstract:           load - control when subroutines will be loaded
+author:
+    - Elizabeth Mattijsen (liz at dijkmat.nl)
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:  {}
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.57_05
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: trunk/libload-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libload-perl/README?rev=66568&op=diff
==============================================================================
--- trunk/libload-perl/README (original)
+++ trunk/libload-perl/README Tue Dec 28 17:46:17 2010
@@ -10,7 +10,7 @@
 modify it under the same terms as Perl itself.
 
 Version:
- 0.19
+ 0.20
 
 Required Modules:
  (none)

Modified: trunk/libload-perl/VERSION
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libload-perl/VERSION?rev=66568&op=diff
==============================================================================
--- trunk/libload-perl/VERSION (original)
+++ trunk/libload-perl/VERSION Tue Dec 28 17:46:17 2010
@@ -1,1 +1,1 @@
-0.19
+0.20

Modified: trunk/libload-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libload-perl/debian/changelog?rev=66568&op=diff
==============================================================================
--- trunk/libload-perl/debian/changelog (original)
+++ trunk/libload-perl/debian/changelog Tue Dec 28 17:46:17 2010
@@ -1,4 +1,11 @@
-libload-perl (0.19-2) UNRELEASED; urgency=low
+libload-perl (0.20-1) UNRELEASED; urgency=low
+
+  This release fixes a problem that only happens with Perl 5.13.X;
+  this version is not in the archive yet.
+  WAITS-FOR: perl 5.13.0
+
+  [ Jonathan Yu ]
+  * New upstream release
 
   [ Nathan Handler ]
   * debian/watch: Update to ignore development releases.
@@ -8,7 +15,7 @@
     perl (>= 5.6.0-{12,16}) with an unversioned dependency on perl (as
     permitted by Debian Policy 3.8.3).
 
- -- Nathan Handler <nhandler at ubuntu.com>  Sat, 06 Jun 2009 01:34:44 +0000
+ -- Jonathan Yu <jawnsy at cpan.org>  Tue, 28 Dec 2010 13:01:11 -0500
 
 libload-perl (0.19-1) unstable; urgency=low
 

Modified: trunk/libload-perl/lib/load.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libload-perl/lib/load.pm?rev=66568&op=diff
==============================================================================
--- trunk/libload-perl/lib/load.pm (original)
+++ trunk/libload-perl/lib/load.pm Tue Dec 28 17:46:17 2010
@@ -2,7 +2,7 @@
 
 # Make sure we have version info for this module
 
-$VERSION  = '0.19';
+$VERSION  = '0.20';
 
 #--------------------------------------------------------------------------
 # No, we're NOT using strict here.  There are several reasons, the most
@@ -97,11 +97,11 @@
 sub import {
 
 # Obtain the class (so we can check whether load or AutoLoader usage)
-# Obtain the module name
+# Obtain caller info
 # Initialize the context flag
 
     my $class  = shift;
-    my ($module,$filename) = caller();
+    my ($module,undef,$lineno) = caller();
 
 # If there were any parameters specified
 #  Initialize the autoload export flag
@@ -189,11 +189,12 @@
             *{$module.'::AUTOLOAD'} = \&AUTOLOAD if $autoload;
         }
 
-# Elseif called from a script
-#  Die indicating that doesn't make any sense
-
-    } elsif ($module eq 'main' and $filename ne '-e') {
-       die "Does not make sense to just 'use $class;' from your script";
+# Elseif called from a script or from command line (no action from command line)
+#  Die indicating that doesn't make any sense if in a script
+
+    } elsif ($module eq 'main') {
+       die "Does not make sense to just 'use $class;' from your script"
+         if $lineno;
 
 # Else (no parameters specified)
 #  Scan the source
@@ -529,7 +530,7 @@
 
 =head1 VERSION
 
-This documentation describes version 0.19.
+This documentation describes version 0.20.
 
 =head1 DESCRIPTION
 


