Re: patch
[email protected] (H . Merijn Brand)
| Newsgroups | perl.daily-build |
|---|---|
| Message-ID | <[email protected]> |
On Fri 24 Aug 2001 17:14, Nicholas Clark <[email protected]> wrote: > On Fri, Aug 24, 2001 at 03:18:24PM +0100, Nicholas Clark wrote: > > On Fri, Aug 24, 2001 at 03:18:47PM +0200, H . Merijn Brand wrote: > > > > Did you detect any other deps, I've gotten so used to it now that I tend to > > > forget what is new in 5.6 :) > > > > I think that that was it for 5.6isms. > > Bzzt. Wrong: > > --- mkovz.pl Thu Aug 23 17:15:40 2001 > +++ /home/smoke/bin/mkovz.pl Fri Aug 24 15:56:02 2001 > @@ -5,7 +5,8 @@ > > # mkovz.pl [ e-mail [ folder ]] > > -our $VERSION = "1.02"; > +use vars '$VERSION'; > +$VERSION = "1.02"; Missed it :( > use Config; > my $email = shift || getpwuid $<; > --- mktest.pl Thu Aug 23 17:17:21 2001 > +++ /home/smoke/bin/mktest.pl Fri Aug 24 16:00:56 2001 > @@ -5,7 +5,8 @@ > > use strict; > > -our $VERSION = "1.02"; > +use vars '$VERSION'; > +$VERSION = "1.02"; Same > my $io = 1; # Test perlio vs. stdio > my $thr = 1; # Test threads > @@ -26,9 +27,9 @@ > > my $Policy = -f "../Policy.sh" && -r _ > ? do { > - local $/ = undef; > - open my $pol, "<../Policy.sh" or die "../Policy.sh: $!"; > - <$pol>; > + local (*POL, $/); > + open POL, "<../Policy.sh" or die "../Policy.sh: $!"; > + <POL>; Did this one already, though not caring 'bout the local. > } > : join "", <DATA>; > my @p_conf = ("", ""); > @@ -72,9 +73,10 @@ > { my $Pol = $Policy; > $dconf or $Pol =~ s/-DDEBUGGING\s*//g; > unlink "Policy.sh"; > - open my $pol, "> Policy.sh"; > - print $pol $Pol; > - close $pol; > + local *POL; > + open POL, "> Policy.sh"; > + print POL $Pol; > + close POL; same. > } > > print TTY "\nConfigure ..."; Thanks anyway -- H.Merijn Brand Amsterdam Perl Mongers (http://www.amsterdam.pm.org/) using perl-5.6.1, 5.7.1 & 628 on HP-UX 10.20 & 11.00, AIX 4.2, AIX 4.3, WinNT 4, Win2K pro & WinCE 2.11. Smoking perl CORE: [email protected] http://archives.develooper.com/[email protected]/ [email protected] send smoke reports to: [email protected], QA: http://qa.perl.org