r49582 - in /trunk/libjavascript-beautifier-perl: Build.PL Changes META.yml Makefile.PL bin/js_beautify.pl debian/changelog lib/JavaScript/Beautifier.pm t/01-javascript-beauty.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Thu Dec 31 04:26:13 UTC 2009


Author: jawnsy-guest
Date: Thu Dec 31 04:26:02 2009
New Revision: 49582

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49582
Log:
New upstream release

Modified:
    trunk/libjavascript-beautifier-perl/Build.PL
    trunk/libjavascript-beautifier-perl/Changes
    trunk/libjavascript-beautifier-perl/META.yml
    trunk/libjavascript-beautifier-perl/Makefile.PL
    trunk/libjavascript-beautifier-perl/bin/js_beautify.pl
    trunk/libjavascript-beautifier-perl/debian/changelog
    trunk/libjavascript-beautifier-perl/lib/JavaScript/Beautifier.pm
    trunk/libjavascript-beautifier-perl/t/01-javascript-beauty.t

Modified: trunk/libjavascript-beautifier-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-beautifier-perl/Build.PL?rev=49582&op=diff
==============================================================================
--- trunk/libjavascript-beautifier-perl/Build.PL (original)
+++ trunk/libjavascript-beautifier-perl/Build.PL Thu Dec 31 04:26:02 2009
@@ -11,6 +11,7 @@
         'Test::More' => '0.88',
         'Getopt::Long' => 0,
         'Pod::Usage' => 0,
+        'IO::File' => 0,
     },
     add_to_cleanup      => [ 'JavaScript-Beautifier-*' ],
     create_makefile_pl => 'traditional',

Modified: trunk/libjavascript-beautifier-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-beautifier-perl/Changes?rev=49582&op=diff
==============================================================================
--- trunk/libjavascript-beautifier-perl/Changes (original)
+++ trunk/libjavascript-beautifier-perl/Changes Thu Dec 31 04:26:02 2009
@@ -1,4 +1,8 @@
 Revision history for JavaScript-Beautifier
+
+0.17    2009.12.30
+        Allex Wang's fix for else { if handling
+        js_beautify.pl [options] - (from STDIN) (RT 53220)
 
 0.16    2009.09.22
         Fixed array indentation regressions.

Modified: trunk/libjavascript-beautifier-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-beautifier-perl/META.yml?rev=49582&op=diff
==============================================================================
--- trunk/libjavascript-beautifier-perl/META.yml (original)
+++ trunk/libjavascript-beautifier-perl/META.yml Thu Dec 31 04:26:02 2009
@@ -1,6 +1,6 @@
 ---
 name: JavaScript-Beautifier
-version: 0.16
+version: 0.17
 author:
   - 'Fayland Lam <fayland at gmail.com>'
 abstract: Beautify Javascript (beautifier for javascript)
@@ -10,6 +10,7 @@
   repository: http://github.com/fayland/perl-javascript-beautifier/tree/master
 build_requires:
   Getopt::Long: 0
+  IO::File: 0
   Pod::Usage: 0
   Test::More: 0.88
 configure_requires:
@@ -17,7 +18,7 @@
 provides:
   JavaScript::Beautifier:
     file: lib/JavaScript/Beautifier.pm
-    version: 0.16
+    version: 0.17
 generated_by: Module::Build version 0.35
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html

Modified: trunk/libjavascript-beautifier-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-beautifier-perl/Makefile.PL?rev=49582&op=diff
==============================================================================
--- trunk/libjavascript-beautifier-perl/Makefile.PL (original)
+++ trunk/libjavascript-beautifier-perl/Makefile.PL Thu Dec 31 04:26:02 2009
@@ -6,6 +6,7 @@
           'VERSION_FROM' => 'lib/JavaScript/Beautifier.pm',
           'PREREQ_PM' => {
                            'Getopt::Long' => '0',
+                           'IO::File' => '0',
                            'Pod::Usage' => '0',
                            'Test::More' => '0.88'
                          },

Modified: trunk/libjavascript-beautifier-perl/bin/js_beautify.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-beautifier-perl/bin/js_beautify.pl?rev=49582&op=diff
==============================================================================
--- trunk/libjavascript-beautifier-perl/bin/js_beautify.pl (original)
+++ trunk/libjavascript-beautifier-perl/bin/js_beautify.pl Thu Dec 31 04:26:02 2009
@@ -5,10 +5,11 @@
 use JavaScript::Beautifier qw/js_beautify/;
 use Getopt::Long;
 use Pod::Usage;
+use IO::File;
+use Carp qw/croak/;
 
 my $file = pop @ARGV;
 pod2usage(1) unless ($file);
-die "$! - $file" unless -f $file;
 
 my %params;
 GetOptions(
@@ -23,10 +24,17 @@
 
 pod2usage(1) if $params{help};
 
-open(my $fh, '<', $file);
+my $file_io;
+if ($file eq '-') {
+    my $io = new IO::Handle;
+    $file_io = $io->fdopen(fileno(STDIN),"r");
+} else {
+    $file_io = new IO::File($file, "<");
+    defined $file_io or croak "can't open $file: $!";
+}
 local $/;
-my $js_source_code = <$fh>;
-close($fh);
+my $js_source_code = <$file_io>;
+$file_io->close;
 
 my $pretty_js = js_beautify( $js_source_code, {
     indent_size => $params{s} || 4,
@@ -53,6 +61,7 @@
 =head1 SYNOPSIS
 
     js_beautify.pl [options] FILE
+    js_beautify.pl [options] -
 
 =head1 OPTIONS
 

Modified: trunk/libjavascript-beautifier-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-beautifier-perl/debian/changelog?rev=49582&op=diff
==============================================================================
--- trunk/libjavascript-beautifier-perl/debian/changelog (original)
+++ trunk/libjavascript-beautifier-perl/debian/changelog Thu Dec 31 04:26:02 2009
@@ -1,4 +1,7 @@
-libjavascript-beautifier-perl (0.16-2) UNRELEASED; urgency=low
+libjavascript-beautifier-perl (0.17-1) UNRELEASED; urgency=low
+
+  [ Jonathan Yu ]
+  * New upstream release
 
   [ Ryan Niebur ]
   * Update ryan52's email address
@@ -7,7 +10,7 @@
   * debian/control: Changed: (build-)depend on perl instead of perl-
     modules.
 
- -- Ryan Niebur <ryan at debian.org>  Fri, 25 Sep 2009 00:25:15 -0700
+ -- Jonathan Yu <jawnsy at cpan.org>  Wed, 30 Dec 2009 23:26:19 -0500
 
 libjavascript-beautifier-perl (0.16-1) unstable; urgency=low
 

Modified: trunk/libjavascript-beautifier-perl/lib/JavaScript/Beautifier.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-beautifier-perl/lib/JavaScript/Beautifier.pm?rev=49582&op=diff
==============================================================================
--- trunk/libjavascript-beautifier-perl/lib/JavaScript/Beautifier.pm (original)
+++ trunk/libjavascript-beautifier-perl/lib/JavaScript/Beautifier.pm Thu Dec 31 04:26:02 2009
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-our $VERSION = '0.16';
+our $VERSION = '0.17';
 our $AUTHORITY = 'cpan:FAYLAND';
 
 use base 'Exporter';
@@ -217,7 +217,7 @@
                 } elsif ( $last_type ne 'TK_END_EXPR' ) {
                     if ( ($last_type ne 'TK_START_EXPR' || $token_text ne 'var') && $last_text ne ':' ) {
                         # no need to force newline on 'var': for (var x = 0...)
-                        if ( $token_text eq 'if' && $last_word eq 'else' ) {
+                        if ( $token_text eq 'if' && $last_word eq 'else' && $last_text ne '{' ) {
                             # no newline for } else if {
                             print_space();
                         }  else {

Modified: trunk/libjavascript-beautifier-perl/t/01-javascript-beauty.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjavascript-beautifier-perl/t/01-javascript-beauty.t?rev=49582&op=diff
==============================================================================
--- trunk/libjavascript-beautifier-perl/t/01-javascript-beauty.t (original)
+++ trunk/libjavascript-beautifier-perl/t/01-javascript-beauty.t Thu Dec 31 04:26:02 2009
@@ -217,6 +217,7 @@
 bt( 'var o2=$.extend(a,function(){alert(x);}', "var o2 = \$.extend(a, function() {\n    alert(x);\n}");
 bt( 'var o2=$.extend(a);function(){alert(x);}', "var o2 = \$.extend(a);\nfunction() {\n    alert(x);\n}");
 bt( '{[y[a]];keep_indent;}', "{\n    [y[a]];\n    keep_indent;\n}");
+bt( 'if (x) {y} else { if (x) {y}}', "if (x) {\n    y\n} else {\n    if (x) {\n        y\n    }\n}" );
 
 $opts->{indent_size} = 1;
 $opts->{indent_char} = ' ';




More information about the Pkg-perl-cvs-commits mailing list