[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Outline.el: Outlining Perl is failing in a way.
From: |
Andreas Marschke |
Subject: |
Outline.el: Outlining Perl is failing in a way. |
Date: |
Wed, 2 Feb 2011 16:12:44 +0100 |
User-agent: |
Mutt/1.5.20 (2009-06-14) |
Hi!
I like Emacs and I like outline.el, which I frequently use. But it has
a small caveat as I discovered recently. When using outline-minor-mode
on perl-mode with a `sub'(perl-2-lisp:sub->defun). It happens to not
fully wrap-in a function like this:
-*------------------------------------------------------------------*-
sub new {
my ($class, %parms ) = @_;
croak("Options to AptPkg::Repackage should be key/value pairs, not hash
reference")
if ref($_[1]) eq 'HASH';
my $name = delete $parms{name};
my $directory = delete $parms{directory};
my $verbose = delete $parms{verbose};
$verbose = 0 unless defined $verbose;
print "Build-directory is: ".$directory."\n" if $verbose == 1;
print "Package-name is: ".$name."\n" if $verbose == 1;
my $self = bless {
Package => $name,
PackageBuildDirectory => $directory,
Verbose => $verbose
},$class;
print "Clean strings...\n" if $verbose == 1;
$name =~ s:\ ::g if $name =~ m:\ :;
$directory =~ s:/$::g if $directory =~ m:/$:;
print "Build-directory is: ".$directory."\n" if $verbose == 1;
print "Package-name is: ".$name."\n" if $verbose == 1;
$PackageName = $name;
$PackageBuildDirectory = $directory."/".$name;
files();
return $self;
}
-*------------------------------------------------------------------*-
it only wraps it untill a point like this:
-*------------------------------------------------------------------*-
sub new {...
Package => $name,
PackageBuildDirectory => $directory,
Verbose => $verbose
},$class;
print "Clean strings...\n" if $verbose == 1;
$name =~ s:\ ::g if $name =~ m:\ :;
$directory =~ s:/$::g if $directory =~ m:/$:;
print "Build-directory is: ".$directory."\n" if $verbose == 1;
print "Package-name is: ".$name."\n" if $verbose == 1;
$PackageName = $name;
$PackageBuildDirectory = $directory."/".$name;
files();
return $self;
}
-*------------------------------------------------------------------*-
Is this fixable? Who is actually the maintainer/developer of
outline.el at the moment? I only found an attribution that it is part
of EMACS and that its © goes to the FSF. What about the person who
wrote it?
--
Cheers,
Andreas Marschke
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Outline.el: Outlining Perl is failing in a way.,
Andreas Marschke <=