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:[EMAIL PROTECTED]/ [EMAIL PROTECTED]
send smoke reports to: [EMAIL PROTECTED], QA: http://qa.perl.org
