bin/fix.pl: Make shebang inspector code work for perltidy

hartwork · hartwork · commit 9046903e6fd2 · 2026-07-11T00:12:15.000+02:00
perltidy 20250912 was observed to misinterpret the '#' as starting a comment.
diff --git a/bin/fix.pl b/bin/fix.pl
@@ -101,7 +101,7 @@ ($)
 
     if ($opt_fixinterp && defined($path) && $path ne "") {
         $source =~ s/^#!.*perl.*\n/#!$path\n/
-            unless $source =~ @^#!/usr/bin/env perl$@;
+            unless $source =~ m{^#!/usr/bin/env perl$};
     }
 
     if ($opt_fixlibdir) {
@@ -135,7 +135,7 @@ ($)
 
     if ($opt_fixinterp && defined($path) && $path ne "") {
         $source =~ s/^#!.*python.*\n/#!$path\n/
-            unless $source =~ @^#!/usr/bin/env python3?$@;
+            unless $source =~ m{^#!/usr/bin/env python3?$};
     }
 
     return $source;

Original file line number	Diff line number	Diff line change
`@@ -101,7 +101,7 @@ ($)`
`101`	`101`
`102`	`102`	`if ($opt_fixinterp && defined($path) && $path ne "") {`
`103`	`103`	`$source =~ s/^#!.perl.\n/#!$path\n/`
`104`		`- unless $source =~ @^#!/usr/bin/env perl$@;`
	`104`	`+ unless $source =~ m{^#!/usr/bin/env perl$};`
`105`	`105`	`}`
`106`	`106`
`107`	`107`	`if ($opt_fixlibdir) {`
`@@ -135,7 +135,7 @@ ($)`
`135`	`135`
`136`	`136`	`if ($opt_fixinterp && defined($path) && $path ne "") {`
`137`	`137`	`$source =~ s/^#!.python.\n/#!$path\n/`
`138`		`- unless $source =~ @^#!/usr/bin/env python3?$@;`
	`138`	`+ unless $source =~ m{^#!/usr/bin/env python3?$};`
`139`	`139`	`}`
`140`	`140`
`141`	`141`	`return $source;`