r40214 - in /trunk/libguard-perl: Changes Guard.pm Guard.xs META.yml README debian/changelog debian/watch
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Jul 20 00:02:34 UTC 2009
Author: jawnsy-guest
Date: Mon Jul 20 00:02:13 2009
New Revision: 40214
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40214
Log:
upgraded upstream version. no release necessary.
Modified:
trunk/libguard-perl/Changes
trunk/libguard-perl/Guard.pm
trunk/libguard-perl/Guard.xs
trunk/libguard-perl/META.yml
trunk/libguard-perl/README
trunk/libguard-perl/debian/changelog
trunk/libguard-perl/debian/watch
Modified: trunk/libguard-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libguard-perl/Changes?rev=40214&op=diff
==============================================================================
--- trunk/libguard-perl/Changes (original)
+++ trunk/libguard-perl/Changes Mon Jul 20 00:02:13 2009
@@ -1,4 +1,6 @@
Revision history for Perl extension Guard
+
+ - try to provide compatibility to pre-5.8.8.
1.02 Sat Apr 11 06:42:06 CEST 2009
- set NODEBUG on scope_guard, to work around -d: modules
Modified: trunk/libguard-perl/Guard.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libguard-perl/Guard.pm?rev=40214&op=diff
==============================================================================
--- trunk/libguard-perl/Guard.pm (original)
+++ trunk/libguard-perl/Guard.pm Mon Jul 20 00:02:13 2009
@@ -15,6 +15,11 @@
code_that_might_die_or_does_other_fun_stuff;
}
+ # create an object that, when the last reference to it is gone,
+ # invokes the given codeblock:
+ my $guard = guard { print "destroyed!\n" };
+ undef $guard; # probably destroyed here
+
=head1 DESCRIPTION
This module implements so-called "guards". A guard is something (usually
@@ -39,7 +44,7 @@
no warnings;
BEGIN {
- $VERSION = '1.02';
+ $VERSION = '1.021';
@ISA = qw(Exporter);
@EXPORT = qw(guard scope_guard);
Modified: trunk/libguard-perl/Guard.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libguard-perl/Guard.xs?rev=40214&op=diff
==============================================================================
--- trunk/libguard-perl/Guard.xs (original)
+++ trunk/libguard-perl/Guard.xs Mon Jul 20 00:02:13 2009
@@ -3,6 +3,15 @@
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
+
+/* apparently < 5.8.8 */
+#ifndef SvSTASH_set
+# define SvSTASH_set(x,a) SvSTASH(x) = (a)
+#endif
+
+#ifndef PERL_MAGIC_ext
+# define PERL_MAGIC_ext '~'
+#endif
static HV *guard_stash;
Modified: trunk/libguard-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libguard-perl/META.yml?rev=40214&op=diff
==============================================================================
--- trunk/libguard-perl/META.yml (original)
+++ trunk/libguard-perl/META.yml Mon Jul 20 00:02:13 2009
@@ -1,18 +1,26 @@
---- #YAML:1.0
-name: Guard
-version: 1.02
-abstract: ~
-author: []
-license: unknown
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-requires: {}
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.48
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+{
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "meta-spec" : {
+ "version" : 1.4,
+ "url" : "http://module-build.sourceforge.net/META-spec-v1.4.html"
+ },
+ "generated_by" : "ExtUtils::MakeMaker version 6.50",
+ "distribution_type" : "module",
+ "version" : "1.021",
+ "name" : "Guard",
+ "author" : [],
+ "license" : "unknown",
+ "build_requires" : {
+ "ExtUtils::MakeMaker" : 0
+ },
+ "requires" : {},
+ "abstract" : null,
+ "configure_requires" : {
+ "ExtUtils::MakeMaker" : 0
+ }
+}
Modified: trunk/libguard-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libguard-perl/README?rev=40214&op=diff
==============================================================================
--- trunk/libguard-perl/README (original)
+++ trunk/libguard-perl/README Mon Jul 20 00:02:13 2009
@@ -3,15 +3,20 @@
SYNOPSIS
use Guard;
-
- # temporarily chdir to "/etc" directory, but make sure
+
+ # temporarily chdir to "/etc" directory, but make sure
# to go back to "/" no matter how myfun exits:
sub myfun {
scope_guard { chdir "/" };
chdir "/etc";
-
- code_that_might_die_or_does_other_fun_stuff;
+
+ code_that_might_die_or_does_other_fun_stuff;
}
+
+ # create an object that, when the last reference to it is gone,
+ # invokes the given codeblock:
+ my $guard = guard { print "destroyed!\n" };
+ undef $guard; # probably destroyed here
DESCRIPTION
This module implements so-called "guards". A guard is something (usually
Modified: trunk/libguard-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libguard-perl/debian/changelog?rev=40214&op=diff
==============================================================================
--- trunk/libguard-perl/debian/changelog (original)
+++ trunk/libguard-perl/debian/changelog Mon Jul 20 00:02:13 2009
@@ -1,3 +1,14 @@
+libguard-perl (1.021-1) UNRELEASED; urgency=low
+
+ No release necessary
+
+ * New upstream release
+ + Provides compatibility with older versions (Perl 5.8)
+ * Copied uversionmangle from AnyEvent to deal with MLEHMANN's release
+ versioning patterns for the future (so that 1.03 doesn't have issues)
+
+ -- Jonathan Yu <frequency at cpan.org> Sun, 19 Jul 2009 15:52:35 -0400
+
libguard-perl (1.02-1) unstable; urgency=low
* Initial Release (Closes: #536550)
Modified: trunk/libguard-perl/debian/watch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libguard-perl/debian/watch?rev=40214&op=diff
==============================================================================
--- trunk/libguard-perl/debian/watch (original)
+++ trunk/libguard-perl/debian/watch Mon Jul 20 00:02:13 2009
@@ -1,2 +1,5 @@
version=3
-http://search.cpan.org/dist/Guard/ .*/Guard-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$
+
+opts="uversionmangle=s/\.\d\d$/$&0/;s/\.\d$/$&00/" \
+ http://search.cpan.org/dist/Guard/ \
+ .*/Guard-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$
More information about the Pkg-perl-cvs-commits
mailing list