Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Re: $* is no longer supported

by hippo (Parson)
on Oct 30, 2013 at 16:58 UTC ( #1060396=note: print w/ replies, xml ) Need Help??

in reply to $* is no longer supported

I would try removing (or commenting out if you prefer) the $* = 1 line and add the /m modifier to the match inside the last while. That's only a guess but it would make sense for the . not to match the newline here, I think.

while (/(^|(\r?\n))[^0-9]*((\d\d\d).*)$/mg) {

Back your script up before making any changes, of course.

How long have you had that script? It is in quite an old style.

Comment on Re: $* is no longer supported
Select or Download Code
Replies are listed 'Best First'.
Re^2: $* is no longer supported
by nootkan (Initiate) on Oct 30, 2013 at 17:58 UTC

    Thanks guys, I was afraid of that. This isn't my script it was open source (webadverts) that has long since been abandoned. It worked fine on perl 5.8.8 on my old server so I guess I'll have to roll back to that version. If I didn't have hundreds of clients using the exchange I would just look for another one and start over.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1060396]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2016-04-30 16:00 GMT
Find Nodes?
    Voting Booth?
    :nehw tseb si esrever ni gnitirW

    Results (441 votes). Check out past polls.