www/libapreq2/files/patch-build-version_check.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

--- build/version_check.pl.orig	Sun Jan  1 19:13:20 2006
+++ build/version_check.pl	Sun Jan  1 19:13:33 2006
@@ -1,6 +1,6 @@
 # version_check.pl tool version
 use strict;
-use warnings 'FATAL';
+#use warnings 'FATAL';
 use Getopt::Long qw/GetOptions/;
 GetOptions(\my %opts, "version=s");
 my ($tool, $path) = @ARGV;
@@ -128,7 +128,7 @@
 WARN
   
     $warning =~ s/^/\# /mg;
-    open(my $fh, '>', $dummy_versions)
+    open(my $fh, ">$dummy_versions")
         or die "Cannot open $dummy_versions for writing: $!";
     print $fh $warning;