Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: $* is no longer supported

by hippo (Monsignor)
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.

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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2017-05-28 12:05 GMT
Find Nodes?
    Voting Booth?