Changeset 8593

Timestamp:

10/03/09 12:24:48 (2 years ago)

Author:

Sewi

Message:

Perl tidy

File:

• trunk/Padre/lib/Padre/Wx/Main.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Wx/Main.pm

@@ -4248 +4248 @@
 
     my $disksize = '';
-    if (defined($doc) and defined($doc->{file})) {
-        $disksize = sprintf(Wx::gettext('Size on disk: %s'),
-            Padre::Util::humanbytes($doc->{file}->size)).$/;
+    if ( defined($doc) and defined( $doc->{file} ) ) {
+        $disksize = sprintf(
+            Wx::gettext('Size on disk: %s'),
+            Padre::Util::humanbytes( $doc->{file}->size )
+        ) . $/;
     }
 
@@ -4259 +4261 @@
         sprintf( Wx::gettext("Chars with spaces: %d"),    $chars_with_space ),
         sprintf( Wx::gettext("Newline type: %s"),         $newline_type ),
-        $disksize.
-        sprintf( Wx::gettext("Encoding: %s"),             $encoding ),
+        $disksize . sprintf( Wx::gettext("Encoding: %s"), $encoding ),
         sprintf(
             Wx::gettext("Document type: %s"),