diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-09 12:51:26 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-09 12:51:26 +0000 |
| commit | 318c3b57a4856775a87049a41b8396bb0d4e5ad9 (patch) | |
| tree | 0f6419730e531b58854f6dcbde0388f194e2e020 | |
| parent | 1b75e72986e264603cd54cf2d28ddbacbdb1c2d1 (diff) | |
| download | perl-MDK-Common-318c3b57a4856775a87049a41b8396bb0d4e5ad9.tar perl-MDK-Common-318c3b57a4856775a87049a41b8396bb0d4e5ad9.tar.gz perl-MDK-Common-318c3b57a4856775a87049a41b8396bb0d4e5ad9.tar.bz2 perl-MDK-Common-318c3b57a4856775a87049a41b8396bb0d4e5ad9.tar.xz perl-MDK-Common-318c3b57a4856775a87049a41b8396bb0d4e5ad9.zip | |
workaround perl 5.8.0-RC2 bug
| -rw-r--r-- | MDK/Common/Func.pm | 2 | ||||
| -rw-r--r-- | perl-MDK-Common.spec | 5 |
2 files changed, 5 insertions, 2 deletions
diff --git a/MDK/Common/Func.pm b/MDK/Common/Func.pm index bc34fce..3e8285d 100644 --- a/MDK/Common/Func.pm +++ b/MDK/Common/Func.pm @@ -258,7 +258,7 @@ sub add_f4before_leaving { *N = sub { my $f = $list->{$_[0]}{$name} or die ''; $name eq 'DESTROY' and delete $list->{$_[0]}; - goto $f; + &$f; } unless defined &{*N}; } diff --git a/perl-MDK-Common.spec b/perl-MDK-Common.spec index 63574fb..34138f4 100644 --- a/perl-MDK-Common.spec +++ b/perl-MDK-Common.spec @@ -2,7 +2,7 @@ # do not change the version here, change in MDK/Common.pm.pl %define version THEVERSION -%define release 2mdk +%define release 3mdk Summary: Various simple functions Name: perl-MDK-Common @@ -49,6 +49,9 @@ rm -rf $RPM_BUILD_ROOT # MODIFY IN THE CVS: cvs.mandrakesoft.com:/cooker soft/perl-MDK-Common %changelog +* Tue Jul 9 2002 Pixel <pixel@mandrakesoft.com> 1.0.3-3mdk +- workaround perl 5.8.0-RC2 bug + * Tue Jul 9 2002 Pixel <pixel@mandrakesoft.com> 1.0.3-2mdk - rebuild for perl 5.8.0 |