X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?p=xscreensaver;a=blobdiff_plain;f=OSX%2Ficmp-warning.pl;h=b0225637990117a681dc3e3a7c698f3290f555c1;hp=d5e7fd9241b6706c714781cebbaa4a3d189c0bfb;hb=78add6e627ee5f10e1fa6f3852602ea5066eee5a;hpb=39809ded547bdbb08207d3e514950425215b4410 diff --git a/OSX/icmp-warning.pl b/OSX/icmp-warning.pl index d5e7fd92..b0225637 100755 --- a/OSX/icmp-warning.pl +++ b/OSX/icmp-warning.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# Copyright © 2012-2014 Jamie Zawinski +# Copyright © 2012-2018 Jamie Zawinski # # Permission to use, copy, modify, distribute, and sell this software and its # documentation for any purpose is hereby granted without fee, provided that @@ -16,7 +16,7 @@ require 5; use strict; my $progname = $0; $progname =~ s@.*/@@g; -my ($version) = ('$Revision: 1.3 $' =~ m/\s(\d[.\d]+)\s/s); +my ($version) = ('$Revision: 1.4 $' =~ m/\s(\d[.\d]+)\s/s); my $verbose = 0; @@ -46,7 +46,7 @@ sub sanity_check() { } foreach my $f ('ip.h', 'in_systm.h', 'ip_icmp.h', 'ip_var.h', 'udp.h') { - $fail .= "\tsudo ln -s $d3$f $d1$d2\n" + $fail .= "\tsudo ln -sf $d3$f $d1$d2\n" unless (-f "$d1$d2$f"); }