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";
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";
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>;
}
: 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;
}
print TTY "\nConfigure ...";
Nicholas Clark
