Merge pull request #230 from masiuchi/fix/precedence-warning

jkeenan · web-flow · commit bbdf063b21d8 · 2026-01-24T18:49:15.000-05:00
Fix precedence warning in Reader.pm
diff --git a/lib/Devel/NYTProf/Reader.pm b/lib/Devel/NYTProf/Reader.pm
@@ -135,7 +135,7 @@ sub output_dir {
     my ($self, $dir) = @_;
     return $self->{output_dir} unless defined($dir);
     if (!mkdir $dir) {
-        confess "Unable to create directory $dir: $!\n" if !$! =~ /exists/;
+        confess "Unable to create directory $dir: $!\n" if $! !~ /exists/;
     }
     $self->{output_dir} = $dir;
 }

Original file line number	Diff line number	Diff line change
`@@ -135,7 +135,7 @@ sub output_dir {`
`135`	`135`	`my ($self, $dir) = @_;`
`136`	`136`	`return $self->{output_dir} unless defined($dir);`
`137`	`137`	`if (!mkdir $dir) {`
`138`		`- confess "Unable to create directory $dir: $!\n" if !$! =~ /exists/;`
	`138`	`+ confess "Unable to create directory $dir: $!\n" if $! !~ /exists/;`
`139`	`139`	`}`
`140`	`140`	`$self->{output_dir} = $dir;`
`141`	`141`	`}`