home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / perl / 7648 < prev    next >
Encoding:
Text File  |  1993-01-02  |  954 b   |  36 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!munnari.oz.au!cs.mu.OZ.AU!thecure
  3. From: thecure@ee.mu.OZ.AU (matthew aardvarkious)
  4. Subject: [*] Bug ? WoRkarOuNd?
  5. Message-ID: <9300217.27348@mulga.cs.mu.OZ.AU>
  6. Sender: news@cs.mu.OZ.AU
  7. Organization: Electronic and Electrical Engineering - University of Melbourne 
  8. Date: Sat, 2 Jan 1993 06:44:34 GMT
  9. Lines: 25
  10.  
  11. $RCSfile: perl.c,v $$Revision: 4.0.1.7 $$Date: 92/06/08 14:50:39 $
  12. Patch level: 35
  13.  
  14. sub main'change_nick {
  15.         local($oldnick,$newnick)=@_;
  16.         foreach $key (keys(%chanop)) {
  17.                 $chanop{$key} =~ s/$oldnick/$newnick/;
  18.         }
  19. }
  20. 1;
  21.  
  22. That's the code that exits on me when..
  23.  
  24.     $oldnick = "foo\";
  25.  
  26. with the message..
  27.  
  28.   /_\/: trailing \ in regexp at s_change_nick.pl line 4, <> line 4336.
  29.  
  30. I don't want to edit the $oldnick string to comment it out, any suggestions?
  31.  
  32. Someone said if you're not careful
  33. You'll have nothing left and nothing to care for
  34.  
  35. - Behavior, "Being Boring"
  36.