X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=examples%2Fperlcomment.pl;h=e764397491f354668a0311cca11a2e9bba55c2a8;hb=8650cadc9aaa12d0fb1d7025ad8fefda9c3df636;hp=b38452d6a894a92b11c49a01c623a9bc3f7a6314;hpb=ed1fffa086693c62340599065543ee1d5c09ee8f;p=perltidy.git

diff --git a/examples/perlcomment.pl b/examples/perlcomment.pl
index b38452d..e764397 100644
--- a/examples/perlcomment.pl
+++ b/examples/perlcomment.pl
@@ -8,7 +8,7 @@
 #
 # where -l specifies the maximum comment line length.
 #
-# You will be given an opportunity to accept or reject eacy proposed
+# You will be given an opportunity to accept or reject each proposed
 # change.
 #
 # This file demonstrates using Perl::Tidy to walk through a perl file
@@ -224,9 +224,9 @@ sub queryu {
 }
 
 sub ifyes {
-    my $ans   = queryu(@_);
     my $count = 0;
   ASK:
+    my $ans   = queryu(@_);
     if    ( $ans =~ /^Y/ ) { return 1 }
     elsif ( $ans =~ /^N/ ) { return 0 }
     else {