Mercurial > forge

changeset 46:ee2e734de04e octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mod to work with octave-2.0 as well as 2.1
author aadler
date Sun, 11 Nov 2001 03:36:31 +0000
parents 163afdf50666
children e945be1f2c03
files extra/perl/Octave.pm
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/extra/perl/Octave.pm	Sun Nov 11 03:00:54 2001 +0000
+++ b/extra/perl/Octave.pm	Sun Nov 11 03:36:31 2001 +0000
@@ -247,9 +247,9 @@
    my $o = shift;
    my $data= $o->interpret("whos -functions");
    my @funclist;
-   while ( $data =~ /user-defined function +- +- +(\w+)/g )
+   while ( $data =~ /user(-defined|) function +- +- +(\w+)/g )
    {
-      push @funclist, $1;
+      push @funclist, $2;
    }
    return @funclist;
 
@@ -416,6 +416,9 @@
 __END__
 
 $Log$
+Revision 1.5  2001/11/11 03:36:31  aadler
+mod to work with octave-2.0 as well as 2.1
+
 Revision 1.4  2001/11/11 03:00:54  aadler
 added makefile and tests
 added as_scalar method