Changeset 8551

Timestamp:

10/03/09 02:53:09 (2 years ago)

Author:

azawawi

Message:

[Padre] Perl tidy

File:

• trunk/Padre/script/padre (modified) (2 diffs)

trunk/Padre/script/padre

@@ -74 +74 @@
 }
 
-if($DESKTOP) {
-    if($^O eq 'MSWin32') {
+if ($DESKTOP) {
+    if ( $^O eq 'MSWin32' ) {
         require File::Temp;
-        my ( $temp, $tempfile ) = File::Temp::tempfile(SUFFIX => '.vbs');
+        my ( $temp, $tempfile ) = File::Temp::tempfile( SUFFIX => '.vbs' );
         print $temp <<'CODE';
 ' Create a Padre shortcut on the current user's desktop 
@@ -90 +90 @@
 CODE
         close $temp;
-        system( qq{wscript "$tempfile"} );
+        system(qq{wscript "$tempfile"});
     } else {
         warn "--desktop not implemented for " . $^O . "\n";