* Re: [devel] perl
2000-11-23 6:33 [devel] perl Aleksey Novodvorsky
@ 2000-11-23 14:41 ` Mikhail Zabaluev
2000-11-23 17:30 ` Alexander Bokovoy
0 siblings, 1 reply; 6+ messages in thread
From: Mikhail Zabaluev @ 2000-11-23 14:41 UTC (permalink / raw)
To: Developers List
[-- Attachment #1: Type: text/plain, Size: 676 bytes --]
Hello Aleksey,
On Thu, Nov 23, 2000 at 09:33 +0300, Aleksey Novodvorsky wrote:
>
> Михаил, как там с perl?
> Я сегодня ночью вперые попытался собрать cooker, завтра буду
> интегрировать пакеты Дмитрия. perl очень нужен. Или в наших пакетах
> изменений по сравнению с текущим cooker не будет?
Будут. Вот spec и патч, которым нужно дополнить то, что входит в
perl-5.600-20mdk от MandrakeSoft. Замечание: почему-то не построились
зависимости вида perl(...), несмотря на 'AutoReqProv: all'.
--
Stay tuned,
MhZ mailto:mookid@sigent.ru
-----------
Thousands of days of civilians ... have produced a ... feeling for the
aesthetic modules --
[-- Attachment #2: perl.spec --]
[-- Type: text/plain, Size: 17117 bytes --]
%define ver 5.6.0
%define oldver 5.600
%define rel 4mdk_mhz
Summary: The Perl programming language.
Summary(de): Die Perl-Programmiersprache
Name: perl
Epoch: 1
Version: %{ver}
Release: %{rel}
Group: Development/Perl
Copyright: Artistic
Provides: perl = 0:%{oldver}
Requires: perl-base = 1:%{version}
AutoReqProv: all
#ftp://ftp.linux.activestate.com/pub/staff/gsar/APC/5.6.0/perl-5.6.0.tar.gz
Source0: ftp://ftp.perl.org/pub/perl/CPAN/src/5.0/maint/perl-%{version}.tar.bz2
Patch0: perl5.005_02-buildsys.patch.bz2
Patch2: perl5.005_61-nodb.patch.bz2
Patch3: perl5-norootcheck.patch.bz2
Patch4: perl-5.6.0-CGI_upload_tmpdir.patch.bz2
Patch5: perl-5.6.0-unsafe-mailing-in-setuid.patch.bz2
Patch6: perl-5.6.0-fix-LD_RUN_PATH-for-MakeMaker.patch.bz2
Patch7: perl-5.6.0-fix-errno_h-parsing-for-glibc-2.1.95.patch.bz2
Patch8: perl-5.6.0-cop.patch.bz2
Packager: Mikhail Zabaluev <mookid@sigent.ru>
Buildroot: %{_tmppath}/%{name}-buildroot
%package base
Epoch: 1
Version: %{version}
Summary: The Perl programming language (base).
Group: Development/Perl
Provides: perl-base = 0:%{oldver}
%package devel
Epoch: 1
Version: %{version}
Summary: The Perl programming language (devel).
Group: Development/Perl
Provides: perl-devel = 0:%{oldver}
Requires: perl = 1:%{version}
%description
Perl is a high-level programming language with roots in C, sed, awk
and shell scripting. Perl is good at handling processes and files,
and is especially good at handling text. Perl's hallmarks are
practicality and efficiency. While it is used to do a lot of
different things, Perl's most common applications (and what it excels
at) are probably system administration utilities and web programming.
A large proportion of the CGI scripts on the web are written in Perl.
You need the perl package installed on your system so that your
system can handle Perl scripts.
You need perl-base to have a full perl.
%description base
This is the base package for %{name}.
%description devel
This is the devel package for %{name}.
%prep
%setup -q -n perl-%{version}
%patch0 -p1 -b .buildsys
%patch2 -p1
%patch3 -p1
%patch4 -p1
%patch5 -p1
%patch6 -p1
%patch7 -p1
%patch8 -p1
%build
sh Configure \
-des -Darchname=${RPM_ARCH}-linux -Dd_dosuid -Ud_csh -Duseshrplib \
-Doptimize="$RPM_OPT_FLAGS" -Dprefix=/usr \
-Dman1dir=%{_mandir}/man1 -Dman3dir=%{_libdir}/perl5/man/man3
%{make}
%install
rm -rf $RPM_BUILD_ROOT
cp -f lib/Config.pm.orig lib/Config.pm ||: # in case of short-circuit
cp -f lib/Config.pm lib/Config.pm.orig
perl -pi -e "s,^(install.*?)='(/usr.*)',\$1='$RPM_BUILD_ROOT\$2'," lib/Config.pm
make install
cp -f lib/Config.pm.orig $RPM_BUILD_ROOT%{_libdir}/perl5/%{version}/%{_arch}-linux/Config.pm
install -m 755 utils/pl2pm $RPM_BUILD_ROOT%{_bindir}/pl2pm
bzip2 -9 $RPM_BUILD_ROOT%{_libdir}/perl5/man/man3/*
export LD_LIBRARY_PATH=$(pwd)
# Generate *.ph files with a trick. Is this sick or what ?
make all -f - <<EOF
PKGS = glibc-devel gdbm-devel gpm-devel libgr-devel libjpeg-devel \
libpng-devel libtiff-devel ncurses-devel popt \
zlib-devel binutils libelf e2fsprogs-devel pam pwdb \
rpm-devel
STDH = \$(filter %{_includedir}/%%, \$(shell rpm -q --queryformat '[%%{FILENAMES}\n]' \$(PKGS)))
STDH +=\$(wildcard %{_includedir}/linux/*.h) \$(wildcard %{_includedir}/asm*/*.h) \$(wildcard %{_includedir}/scsi/*.h)
GCCDIR = \$(shell gcc --print-file-name include)
GCCH = \$(filter \$(GCCDIR)/%%, \$(shell rpm -q --queryformat '[%%{FILENAMES}\n]' gcc))
PERLLIB = $RPM_BUILD_ROOT%{_libdir}/perl5/%{version}
PERL = PERL5LIB=\$(PERLLIB) $RPM_BUILD_ROOT%{_bindir}/perl
H2PH = \$(PERL) $RPM_BUILD_ROOT%{_bindir}/h2ph -d $RPM_BUILD_ROOT%{_libdir}/perl5/%{version}/%{_arch}-linux/
all: std-headers gcc-headers
std-headers: \$(STDH)
cd %{_includedir} && \$(H2PH) \$(STDH:%{_includedir}/%%=%%)
gcc-headers: \$(GCCH)
cd \$(GCCDIR) && \$(H2PH) \$(GCCH:\$(GCCDIR)/%%=%%)
EOF
(
cd $RPM_BUILD_ROOT%{_bindir}
ln -sf perl5 perl
ln -s perl%{version} perl5
)
perl -pi -e 's,/usr/local/bin/perl,%{_bindir}/perl,' \
$RPM_BUILD_ROOT%{_libdir}/perl5/%{version}/ExtUtils/inst
(
cd $RPM_BUILD_DIR/perl-%{version}
cat > perl-base.list <<EOF
%{_bindir}/perl
%{_bindir}/perl5
%{_bindir}/perl%{version}
%attr(4711,root,root) %{_bindir}/sperl%{version}
%attr(4711,root,root) %{_bindir}/suidperl
%dir %{_libdir}/perl5
%dir %{_libdir}/perl5/%{version}
%dir %{_libdir}/perl5/%{version}/File
%{_libdir}/perl5/%{version}/File/Basename.pm
%{_libdir}/perl5/%{version}/File/Find.pm
%{_libdir}/perl5/%{version}/File/Path.pm
%dir %{_libdir}/perl5/%{version}/Time
%{_libdir}/perl5/%{version}/Time/Local.pm
%{_libdir}/perl5/%{version}/AutoLoader.pm
%{_libdir}/perl5/%{version}/Carp.pm
%{_libdir}/perl5/%{version}/Cwd.pm
%{_libdir}/perl5/%{version}/DirHandle.pm
%{_libdir}/perl5/%{version}/Exporter.pm
%{_libdir}/perl5/%{version}/FileHandle.pm
%{_libdir}/perl5/%{version}/SelectSaver.pm
%{_libdir}/perl5/%{version}/Symbol.pm
%{_libdir}/perl5/%{version}/integer.pm
%{_libdir}/perl5/%{version}/lib.pm
%{_libdir}/perl5/%{version}/strict.pm
%{_libdir}/perl5/%{version}/vars.pm
%dir %{_libdir}/perl5/%{version}/warnings
%{_libdir}/perl5/%{version}/warnings/register.pm
%{_libdir}/perl5/%{version}/warnings.pm
%dir %{_libdir}/perl5/%{version}/%{_arch}-linux
%dir %{_libdir}/perl5/%{version}/%{_arch}-linux/File
%{_libdir}/perl5/%{version}/%{_arch}-linux/File/Glob.pm
%dir %{_libdir}/perl5/%{version}/%{_arch}-linux/IO
%{_libdir}/perl5/%{version}/%{_arch}-linux/IO/Handle.pm
%{_libdir}/perl5/%{version}/%{_arch}-linux/IO/Seekable.pm
%{_libdir}/perl5/%{version}/%{_arch}-linux/IO/Select.pm
%{_libdir}/perl5/%{version}/%{_arch}-linux/IO/Socket.pm
%dir %{_libdir}/perl5/%{version}/%{_arch}-linux/auto
%dir %{_libdir}/perl5/%{version}/%{_arch}-linux/auto/DynaLoader
%{_libdir}/perl5/%{version}/%{_arch}-linux/auto/DynaLoader/dl_findfile.al
%dir %{_libdir}/perl5/%{version}/%{_arch}-linux/auto/File
%dir %{_libdir}/perl5/%{version}/%{_arch}-linux/auto/File/Glob
%{_libdir}/perl5/%{version}/%{_arch}-linux/auto/File/Glob/Glob.so
%{_libdir}/perl5/%{version}/%{_arch}-linux/auto/File/Glob/autosplit.ix
%dir %{_libdir}/perl5/%{version}/%{_arch}-linux/auto/IO
%{_libdir}/perl5/%{version}/%{_arch}-linux/auto/IO/IO.so
%dir %{_libdir}/perl5/%{version}/%{_arch}-linux/auto/POSIX
%{_libdir}/perl5/%{version}/%{_arch}-linux/auto/POSIX/POSIX.so
%{_libdir}/perl5/%{version}/%{_arch}-linux/auto/POSIX/tmpfile.al
%dir %{_libdir}/perl5/%{version}/%{_arch}-linux/auto/Socket
%{_libdir}/perl5/%{version}/%{_arch}-linux/auto/Socket/Socket.so
%dir %{_libdir}/perl5/%{version}/%{_arch}-linux/auto/re
%{_libdir}/perl5/%{version}/%{_arch}-linux/auto/re/re.so
%{_libdir}/perl5/%{version}/%{_arch}-linux/Config.pm
%{_libdir}/perl5/%{version}/%{_arch}-linux/DynaLoader.pm
%{_libdir}/perl5/%{version}/%{_arch}-linux/POSIX.pm
%{_libdir}/perl5/%{version}/%{_arch}-linux/Socket.pm
%{_libdir}/perl5/%{version}/%{_arch}-linux/re.pm
%{_libdir}/perl5/%{version}/%{_arch}-linux/XSLoader.pm
%dir %{_libdir}/perl5/%{version}/%{_arch}-linux/CORE
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/libperl.so
EOF
cat > perl.list <<EOF
%doc Artistic README README.Y2K
%{_bindir}/a2p
%{_bindir}/perlbug
%{_bindir}/perldoc
%{_bindir}/find2perl
%{_bindir}/pod2man
%{_bindir}/pod2html
%{_bindir}/pod2text
%{_bindir}/pod2latex
%{_bindir}/splain
%{_bindir}/s2p
%{_mandir}/man*/*
EOF
cat > perl-devel.list <<EOF
%{_bindir}/pstruct
%{_bindir}/perlcc
%{_bindir}/c2ph
%{_bindir}/h2xs
%{_bindir}/h2ph
%{_bindir}/pl2pm
%{_libdir}/perl5/%{version}/%{_arch}-linux/auto/DynaLoader/DynaLoader.a
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/EXTERN.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/INTERN.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/XSUB.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/av.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/cc_runtime.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/config.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/cop.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/cv.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/dosish.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/embed.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/embedvar.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/fakethr.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/form.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/gv.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/handy.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/hv.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/intrpvar.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/iperlsys.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/keywords.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/mg.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/nostdio.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/objXSUB.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/op.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/opcode.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/opnames.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/patchlevel.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/perl.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/perlapi.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/perlio.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/perlsdio.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/perlsfio.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/perlvars.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/perly.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/pp.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/pp_proto.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/proto.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/regcomp.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/regexp.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/regnodes.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/scope.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/sperl.o
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/sv.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/thrdvar.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/thread.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/unixish.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/utf8.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/util.h
%{_libdir}/perl5/%{version}/%{_arch}-linux/CORE/warnings.h
%{_libdir}/perl5/man
EOF
(cd $RPM_BUILD_ROOT ; find usr/lib/perl5/%{version} ! \( -type d -o -name '*.bs' -empty \) -printf "/%%p\n") >> %{name}.list
(cd $RPM_BUILD_ROOT ; find usr/lib/perl5/%{version} -type d -printf "%%%%dir /%%p\n") >> %{name}.list
perl -ni -e 'BEGIN { open F, "perl-base.list"; $s{$_} = 1 foreach <F>; } print unless $s{$_}' %{name}.list
perl -ni -e 'BEGIN { open F, "perl-devel.list"; $s{$_} = 1 foreach <F>; } print unless $s{$_}' %{name}.list
)
%clean
rm -rf $RPM_BUILD_ROOT
%files -f perl.list
%defattr(-,root,root)
%files base -f perl-base.list
%defattr(-,root,root)
%files devel -f perl-devel.list
%defattr(-,root,root)
%changelog
* Tue Nov 23 2000 Mikhail Zabaluev <mookid@sigent.ru> 1:5.6.0-4mdk_mhz
- synchronized with 5.600-20mdk by pixel@mandrakesoft.com
- enabled 'uselargefiles' again, since the new kernel must support it
- removed redundant epoch 1 provides
- AutoReqProv: all
* Mon Oct 16 2000 Mikhail Zabaluev <mookid@sigent.ru> 1:5.6.0-3mdk_mhz
- -Uuselargefiles configuration option, for compatibility with Apache
and workable fcntl($fd, F_SETLK, ...)
* Sun Oct 8 2000 Mikhail Zabaluev <mookid@sigent.ru> 1:5.6.0-2mdk_mhz
- added %{name} = 1:%{version} in provides to work around an rpm flaw
* Sat Oct 7 2000 Mikhail Zabaluev <mookid@sigent.ru> 1:5.6.0-1mdk_mhz
- versioning with epoch
- excluded *.bs files from perl.list
* Sun Sep 3 2000 Pixel <pixel@mandrakesoft.com> 5.600-17mdk
- also move warnings/register.pm
- fix silly error
* Sat Sep 2 2000 Pixel <pixel@mandrakesoft.com> 5.600-16mdk
- move Glob.pm and dependencies to perl-base
* Sat Sep 2 2000 Pixel <pixel@mandrakesoft.com> 5.600-15mdk
- fix filelist cleaning
* Wed Aug 23 2000 Pixel <pixel@mandrakesoft.com> 5.600-14mdk
- add Packager
* Tue Aug 22 2000 Pixel <pixel@mandrakesoft.com> 5.600-13mdk
- move dir .../CORE to perl-base
- move lib.pm to perl-base (to make installkernel happy)
* Fri Aug 18 2000 Pixel <pixel@mandrakesoft.com> 5.600-12mdk
- fix-LD_RUN_PATH-for-MakeMaker
* Mon Aug 7 2000 Pixel <pixel@mandrakesoft.com> 5.600-11mdk
- fix the mailx `!~' (in case you're using the old mailx or a bug appears in
mailx...)
* Tue Jul 25 2000 Pixel <pixel@mandrakesoft.com> 5.600-10mdk
- move DynaLoader.a to -devel
- remove menu
* Sat Jul 22 2000 Pixel <pixel@mandrakesoft.com> 5.600-9mdk
- patch CGI.pm to have $TempFile::TMPDIRECTORY = '/tmp'
* Fri Jul 21 2000 Pixel <pixel@mandrakesoft.com> 5.600-8mdk
- bad config.h
* Fri Jul 21 2000 Pixel <pixel@mandrakesoft.com> 5.600-7mdk
- oups, devel was bad :-(
* Wed Jul 19 2000 Pixel <pixel@mandrakesoft.com> 5.600-6mdk
- BM, macroization
* Fri May 19 2000 FranГois Pons <fpons@mandrakesoft.com> 5.600-5mdk
- changed asm/*.h to asm*/*.h during .ph generation for sparc.
* Fri Mar 31 2000 Pixel <pixel@mandrakesoft.com> 5.600-4mdk
- fix a bug causing missing .ph's
* Tue Mar 28 2000 Pixel <pixel@mandrakesoft.com> 5.600-3mdk
- really add menu
* Mon Mar 27 2000 Pixel <pixel@mandrakesoft.com> 5.600-2mdk
- add menu
* Thu Mar 23 2000 Pixel <pixel@mandrakesoft.com> 5.600-1mdk
- change version number for backward compatibility :(
(serial is not enough, cuz there are some requires >= 5.00503)
* Thu Mar 23 2000 Pixel <pixel@mandrakesoft.com> 5.6.0-1mdk
- new version
* Tue Mar 21 2000 Pixel <pixel@mandrakesoft.com> 5.6-0.3mdk
- RC3
* Thu Mar 16 2000 Pixel <pixel@mandrakesoft.com> 5.6-0.2mdk
- RC2
* Thu Mar 9 2000 Pixel <pixel@mandrakesoft.com> 5.6-0.1mdk
- new version
* Wed Mar 1 2000 Pixel <pixel@mandrakesoft.com> 5.5.670-1mdk
- new version
* Thu Feb 24 2000 Pixel <pixel@mandrakesoft.com> 5.5.660-1mdk
- remove the strip'ing and man page bzip'ing
- new version
* Wed Feb 9 2000 Pixel <pixel@mandrakesoft.com> 5.5.650-1mdk
- new version
* Thu Feb 3 2000 Pixel <pixel@mandrakesoft.com> 5.5.640-6mdk
- new version (and new version numbering)
* Mon Jan 17 2000 FranГois Pons <fpons@mandrakesoft.com>
- changed asm/*.h to asm*/*.h during .ph generation for sparc.
* Fri Dec 17 1999 Pixel <pixel@mandrakesoft.com>
- clean up
- fixed the reference to the egcs package
* Mon Nov 29 1999 Pixel <pixel@linux-mandrake.com>
- removed the `Provides: perl' in perl-base
* Mon Nov 22 1999 Stefan van der Eijk <s.vandereijk@chello.nl>
- changed i386 into ${RPM_ARCH}
* Mon Oct 25 1999 Chmouel Boudjnah <chmouel@mandrakesoft.com>
- Fix forget manpages from %files.
* Thu Oct 14 1999 Pixel <pixel@linux-mandrake.com>
- create hackperl based on perl's spec
- split in two packages
- removed csh dependencie
- merged redhat's spec (not everything)
* Mon Jul 12 1999 Chmouel Boudjnah <chmouel@mandrakesoft.com>
- ln /usr/lib/perl5 to /usr/lib/perl5%{current_version}
- bzip2 manpages.
* Tue Apr 13 1999 Chmouel Boudjnah <chmouel@mandrakesoft.com>
- Add patch from RedHat6.0.
- Update to 5.005_03
* Sat Apr 10 1999 Bernhard Rosenkraenzer <bero@linux-mandrake.com>
- Mandrake adaptions
- bzip2 man/info pages
- handle RPM_OPT_FLAGS
- add de locale
* Thu Jan 07 1999 Cristian Gafton <gafton@redhat.com>
- guilty of the inlined Makefile in the spec file
- adapted for the arm build
* Wed Sep 09 1998 Preston Brown <pbrown@redhat.com>
- added newer CGI.pm to the build
- changed the version naming scheme around to work with RPM
* Sun Jul 19 1998 Jeff Johnson <jbj@redhat.com>
- attempt to generate *.ph files reproducibly
* Mon Jun 15 1998 Jeff Johnson <jbj@redhat.com>
- update to 5.004_04-m4 (pre-5.005 maintenance release)
* Tue Jun 12 1998 Christopher McCrory <chrismcc@netus.com
- need stdarg.h from gcc shadow to fix "use Sys::Syslog" (problem #635)
* Fri May 08 1998 Cristian Gafton <gafton@redhat.com>
- added a patch to correct the .ph constructs unless defined (foo) to read
unless(defined(foo))
* Thu May 07 1998 Prospector System <bugs@redhat.com>
- translations modified for de, fr, tr
* Tue Mar 10 1998 Cristian Gafton <gafton@redhat.com>
- fixed strftime problem
* Sun Mar 08 1998 Cristian Gafton <gafton@redhat.com>
- added a patch to fix a security race
- do not use setres[ug]id - those are not implemented on 2.0.3x kernels
* Mon Mar 02 1998 Cristian Gafton <gafton@redhat.com>
- upgraded to 5.004_04 - 5.004_01 had some nasty memory leaks.
- fixed the spec file to be version-independent
* Fri Dec 05 1997 Erik Troan <ewt@redhat.com>
- Config.pm wasn't right do to the builtrooting
* Mon Oct 20 1997 Erik Troan <ewt@redhat.com>
- fixed arch-specfic part of spec file
* Sun Oct 19 1997 Erik Troan <ewt@redhat.com>
- updated to perl 5.004_01
- users a build root
* Thu Jun 12 1997 Erik Troan <ewt@redhat.com>
- built against glibc
* Tue Apr 22 1997 Erik Troan <ewt@redhat.com>
- Incorporated security patch from Chip Salzenberg <salzench@nielsenmedia.com>
* Fri Feb 07 1997 Erik Troan <ewt@redhat.com>
- Use -Darchname=i386-linux
- Require csh (for glob)
- Use RPM_ARCH during configuration and installation for arch independence
[-- Attachment #3: perl-5.6.0-cop.patch --]
[-- Type: text/plain, Size: 988 bytes --]
--- perl-5.6.0/cop.h~ Tue Mar 21 02:26:52 2000
+++ perl-5.6.0/cop.h Sat Jun 24 18:38:34 2000
@@ -105,13 +105,9 @@
} STMT_END
#endif /* USE_THREADS */
-#ifdef USE_ITHREADS
- /* junk in @_ spells trouble when cloning CVs, so don't leave any */
-# define CLEAR_ARGARRAY() av_clear(cx->blk_sub.argarray)
-#else
-# define CLEAR_ARGARRAY() NOOP
-#endif /* USE_ITHREADS */
-
+/* junk in @_ spells trouble when cloning CVs and in pp_caller(), so don't
+ * leave any */
+#define CLEAR_ARGARRAY() av_clear(cx->blk_sub.argarray)
#define POPSUB(cx,sv) \
STMT_START { \
--- perl-5.6.0/t/op/runlevel.t~ Wed Mar 1 09:28:41 2000
+++ perl-5.6.0/t/op/runlevel.t Sat Jun 24 18:34:44 2000
@@ -349,3 +349,18 @@
bar
B 2
bar
+########
+sub n { 0 }
+sub f { my $x = shift; d(); }
+f(n());
+f();
+
+sub d {
+ my $i = 0; my @a;
+ while (do { { package DB; @a = caller($i++) } } ) {
+ @a = @DB::args;
+ for (@a) { print "$_\n"; $_ = '' }
+ }
+}
+EXPECT
+0
^ permalink raw reply [flat|nested] 6+ messages in thread