* upgrade to the 20060614 release

[perltidy.git] / examples / perlcomment.pl

diff --git a/examples/perlcomment.pl b/examples/perlcomment.pl
index b38452d6a894a92b11c49a01c623a9bc3f7a6314..e764397491f354668a0311cca11a2e9bba55c2a8 100644 (file)
--- 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 {