Ticket #1186: changed.diff

PerlTidy.pm

@@ -182 +182 @@
 
     while (1) {
         my $dialog = Wx::FileDialog->new(
-            $main, Wx::gettext("Save file as..."),
+            $main, Wx::gettext("Save file as..."),\
+#XXX
+            before_hooks;
             $default_dir, ( $current or $doc->get_title ) . '.html',
             "*.*", Wx::wxFD_SAVE,
         );
@@ -340 +342 @@
     Class::Unload->unload('Perl::Tidy');
     return;
 }
-
+sub before_hooks {
+    tidy_document;
+} 
 1;
 
 =pod