Slash Boxes
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

runrig (3385)


Just another perl hacker somewhere near Disneyland

I have this homenode [] of little consequence on Perl Monks [] that you probably have no interest in whatsoever.

I also have some modules [] on CPAN [] some of which are marginally [] more [] useful [] than others.

Journal of runrig (3385)

Friday January 24, 2003
05:45 PM


[ #10176 ]
When we start the debugger for our 4gl programs, the source path environment variable is not always correctly set (actually its never correctly set, its just set to a best guess default), so I wrote something to scan the Makefile and set the source path to the right library directories before starting the debugger. My favorite bit from that script is this:

if (my $status = s/^\s*LIBFILES\s*=// .. !s/\\$//) {
  push @libs, split;
  last if $status =~ /E0/;

I had to add comments (to the effect of "From the start of the LIBFILES section to the first line which doesn't end in a backslash) and explain the flip-flop operator for the benefit of the (novice but only) other perl programmer in the office.

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login | Reply
Loading... please wait.