Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix find_base_classes.pl script

  • Loading branch information...
commit 2b1e9f84bb1583d8d0db34111c986b5f83fe02aa 1 parent 1a51974
@c9s authored
Showing with 5 additions and 5 deletions.
  1. +4 −4 test-case/perl-completion.pm
  2. +1 −1  utils/find_base_classes.pl
View
8 test-case/perl-completion.pm
@@ -4,8 +4,8 @@ extends 'App::SD::ForeignReplica::PullEncoder';
use strict;
use warnings;
-# should complete package name and show 'strict' and 'warnings'
-use
+## should complete package name and show 'strict' and 'warnings'
+# use
# (blank) should complete
# * package name
@@ -19,8 +19,8 @@ use
# * before
# capitalize word should be completed with package names
-MyApp
-AnyEvent::
+## MyApp
+## AnyEvent::
has sync_source =>
( isa => 'App::SD::Replica::rt',
View
2  utils/find_base_classes.pl
@@ -48,7 +48,7 @@ sub find_base_classes {
push @bases, ( eval $elements[ 2 ]->content );
}
# it's from "use base"
- elsif( $st->isa('PPI::Statement::Include') and $elements[2]->content eq 'base' ) {
+ elsif( $st->isa('PPI::Statement::Include') and $elements[2] and $elements[2]->content eq 'base' ) {
push @bases, ( eval $elements[ 4 ]->content ); # 'use',' ','base','qw/ ...... /',';'
}
Please sign in to comment.
Something went wrong with that request. Please try again.