Re: patch

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