--- rxvt-unicode/src/command.C	2006/01/03 17:34:44	1.229
+++ rxvt-unicode/src/command.C	2006/01/04 00:09:12	1.230
@@ -3968,12 +3968,19 @@
         if (lines)
           scr_page (op == URxvt_view_up ? UP : DN, lines);
         else
-          {
-            scr_erase_savelines ();
-          }
+          scr_erase_savelines ();
 
         break;
 #endif
+
+#if ENABLE_PERL
+      case URxvt_perl:
+        if (PERL_INVOKE ((this, HOOK_OSC_SEQ, DT_STRING, str, DT_END)))
+          ; // no responses yet
+        break;
+
+#endif
+
     }
 }
 /*----------------------------------------------------------------------*/